


ee eC ea a) 









‘ 






Make MSDOS | 
| cae om LT 
mee ce hae 


e Standard 







rai } once you 
ate the high C errors. 








isn’t a 








When you can find and fix bugs at 
the earliest possible moment, creating 
software stops being such an uphill grind. 

And the Smart/C Environment makes 
it possible. It’s a complete, fully-integrated 
development environment for C that saves 
you from the creativity-inhibiting cycle 
of edit, compile, re-edit, re-compile, link, 
load, test, re-edit, re-compile, etc., ad 
infinitum. Smart/C puts the fun back in 
programming, because you spend your 
time creating... not waiting. 

Here’s why. Syntax errors are elimi- 
nated automatically as code is entered. 
Smart/C’s highly integrated editor and 
interpreter allow you to interpret your pro- 
gram at any time in the creation process, so 
logic errors can be ferreted out as soon as 
the algorithm exists—long before any 
compile, link, or load. 

The complete integration of the edi- 
tor and interpreter means you can stop 
anywhere in the interpret cycle, edit, and 
then go right back into the interpreter 
exactly where you left off. Not only that, 
the screen-oriented user interface lets you 
see all operations, even interpretation, 
right on the listing of the code. 
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And to make maintenance program- 
ming easier, Smart/C’s Migrator allows 
existing C code produced with any editor 
to be modified and run within the Smart/C 
Environment. 

All of which makes Smart/C an excel- 
lent tool. It’s flexible, non-restrictive, and 
lets you create elegant, readable, error- 
free programs that you can watch run with 
a great feeling of satisfaction. 


Smart/C" 


Free 
Demo Disk! 


To fully appreciate Smart/C, you have to see it in 
action. For your free IBM PC MS-DOS demo disk, call 
us. Or write us on your company letterhead. 

AGS Computers, Inc., Advanced Products Division, 
1139 Spruce Drive, Mountainside, NJ 07092. 
800-AGS-1313. In NJ, 201-654-4321. 
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Smart/C Features 


The Smart/C Environment 

C Fully integrated editor and interpreter 
Q Only one load brings them both in — 
Ci One command set 

QO Move between one another at will 


Syntax Directed Editor 

O vi-like command set 

0 Automatically provides formats for blocks, for, 
case and if statements 


Interpreter 

© Current module can call external modules during 
interpretation 

©) Has Include capability 

O Totally precompilation—no incremental compile 

C Can interpret partially defined files allowing for 
rapid prototyping 

OC Variable speed of interpretation 

O Multiple windows with user-defined sizes 


The Smart/C Migrator 

O Allows C code produced with any editor to be 
interpreted by Smart/C 

C) Reformats for readability 


Smart/C has been ported to UNIX™ System V Release 2, 
Berkeley 4.2, Xenix,™ and MS-DOS. Versions run on 
8086- and 68000-based machines, as well as proprie- 
tary architectures. Smart/C runs on PCs, micros, 
supermicros, minis, and even mainframes. 


Trademarks—Smart/C: AGS Computers, Inc. ; UNIX: AT&T Bell Labs; 
Xenix and MS-DOS: Microsoft Corp; IBM PC: IBM Corp. 
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Introducing the MIX Editor 


(with Split Screen - both horizontal and vertical ) 
A Powerful Addition To Any Programmer’s Tool Box 









Full Screen Editing 
WordStar Key Layout 
Custom Key Layouts 
Terminal Configuration 
Help Files 
Backup Files 






30 Day Money Back Guarantee 
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Programmable 
Macro Commands 

Custom Setup Files 
Mnemonic Command Mode 
Multiple File Editing 

Split Screen Editing 





For PCDOS/MSDOS (2.0 and above/128K) @ IBM PC/Compatibles, PC Jr., Tandy 1000/1200/2000, & others 
For CPMS80 2.2/3.0 (Z80 required/64K ) @ 8” SSSD, Kaypro 2/4, Osborne I SD/DD, Apple I, & others 


Great For All Languages 


A general purpose text 
processor, the MIX Editor is 
packed with features that make it 
useful with any language. It has 
auto indent for structured 
languages like Pascal or C. It has 
automatic line numbering for 
BASIC (255 character lines ). It 
even has fill and justify for 
English. 


Terminal Configuration 


A utility for defining terminal 
features (smart features 
included ) allows the editor to 
work with any terminal. Over 30 
of the most popular terminals are 
built-in. 


Custom Key Layouts 


Commands are mapped to keys 
just like WordStar. If you don't 
like the WordStar layout, simply 
change it. Any key can be 
mapped to any command. You 
can also define a key to generate 
a string of characters, great for 

- entering keywords. 


Split Screen 


You can split the screen 
horizontally or vertically and edit 
two files simultaneously. 


Macro Commands 


The MIX Editor allows a 
sequence of commands to be 
executed with a single keystroke. 
You can define a complete 
editing operation and perform it 
at the touch of a key. 


2116 E. Arapaho 
Suite 363 





Richardson, Tx 75081 
software (214) 783-6001 


MSDOS is a trademark of Microsoft 
PCDOS is a trademark of IBM 

CPM80 is a trademark of Digital Research 
WordStar is a trademark of MicroPro 


Custom Setup Files 


Custom keyboard layouts and 
macro Commands can be saved 
in setup files. You can create a 
different setup file for each 
language you use. The editor 
automatically configures itself 
using a setup file. 


Command Mode 


Command mode allows any 
editor command to be executed 
by name. It is much easier to 
remember a command name 
versus a complicated key 
sequence. Command mode 
makes it easy to master the full 
capability of the editor. 
Frequently used commands can 
be mapped to keys. Infrequent 
commands can be executed by 
name. 


Editor Commands 


The editor contains more than 
100 commands. With so many 
commands, you might think it 
would be difficult to use. Not so, 
it is actually extremely simple to 
use. With command mode, the 
power is there if you need it, but 
it doesn’t get in your way if you 
don’t. Following is a list of some 
of the commands. 


Cursor Commands 


Left/Right/Up/Down 

Tab Right/Tab Left 

Forward Word/Backward Word 
Beginning of Line/End of Line 
Scroll Up/Scroll Down 

Window Up/Window Down 
Scroll Left/Scroll Right 

Top of File/Bottom of File 
eee 


Block Commands 


Copy/Move/Delete 
Read/Write 

Lower Case/Upper Case 
Fill/Justify 

Print 


File Commands 


Directory (with wild cards ) 
Show File/Help File 
Input/Output File 

Delete File/Save File 


Other Commands 


Split Screen/Other Window 
Find String/Replace String 
Replace Global/Query Replace 
Delete Line/Undelete Line 
Delete Word/Undelete Word 
Insert Mode/Overwrite Mode 
Open Line/Join Line 

Duplicate Line/Center Line 
Set Tab/Clear Tab 


| To Order: Call Toll Free 1-800-523-9520, (Texas only 1-800-622-4070) 


Mix Editor 
i Visa ____ MasterCard ____ Card * 
COD —____ Che ck ____ Money Order —___ 





Computer 
Name 
| street 
| City/State/Zip 
i Country 
Phone 





$29.95 + shipping ($5 USA/$10 Foreign) Texas residents add 6% sales tax 


Exp. Date 
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Disk Fornatt i 
Operating System: MSDOS ____ PCDOS ____ CPM80 ___ L 
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| : | : nly 4 Kodak diskettes. 
_f Primary ca | 18 megabytes of online random access 
- : storage 
f Portability Floppy ruggedness... ideal for portable 


computers 


f Expandability Unlimited storage capacity—just change 3 
diskettes 


f Data Security Removeability gives you ultimate data 
security without security software 


m iarity o ofa topo pats f Interchangeability Media interchangeability guaranteed 
ght times the online storage _ from drive to drive 


fa j expandability | Read Standard Reads standard diskettes so you can 


Diskettes exchange data between IBM PCs and International Business 
ATs Corporation. 
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: ability from drive to drive, and _ | f Diskette Savings One Kodak 2.78MB diskette replaces 8 P 2 


| teanalce read standard IBM PC __ cers be opr. 
- a an d AT diskettes—i deal ‘or f Convenience Install in minutes using standard DOS 


software 


Circle no. 3 on reader service card_ 








Slash Programming Time in Half! 





" FirsTime 


Fast program entry through single keystroke statement generators. 


Fast editing through syntax oriented cursor movements. 


Fast development through unique programmer oriented features. 


® 
& 
@ Dramatically reduced debugging time through immediate syntax checking. 
7 
& 


Automatic program formatter. 


FirsTime is a true syntax directed editor. 


FirsTime ensures the integrity of your programs by 
performing all editing tasks like moves, inserts and 
deletes along the syntactic elements of a program. 
For example, when you move an IF statement, 
FirsTime will move the corresponding THEN and 
ELSE clauses with it. 


Even FirsTime’s cursor movements are by syntax 
elements instead of characters. The cursor automati- 
cally skips over blank spaces and required keywords 
and goes directly to the next editable position. 


FirsTime is a Syntax Checker | 


FirsTime checks the syntax of your program 
statements, and also: 


@ Semantics like undefined variables and 
mismatched statement types. 


@® The contents of include files and macro 
expansions. 


@ Statements for errors as they are entered 
and warns you immediately. 


FirsTime is a Program Formatter 


FirsTime automatically indents statements as they 
are entered, saving you from having to track indenta- 
tion levels and count spaces. 


FirsTime has Unique Features 
No other editor offer these features: 


The Zoom command gives you a top down view 
of your program logic. 


The View command displays the contents of 
include files and macro expansions. This is 
valuable to sophisticated programmers writing 
complex code or to those updating unfamiliar 
programs. 


FirsTime’s Transform command lets you change 
a statement to another similar one with just two 
keystrokes. For example, you can instantly trans- 
forma FOR statement into a WHILE statement. 


The Move at Same Level command moves the 
Cursor up or down to the next statement at the 
same indentation level. This is very useful. For 
example, you can use it to locate the ELSE 
clause that corresponds to a given THEN clause 
or to traverse a program one procedure at a 
time. 


FirsTime is Unparalleled 


FirsTime is the most advanced syntax directed 
editor available. It makes programming faster, easier 
and more fun. 


TO ORDER CALL (201) 741-8188 


or write: 


Spruce Technology Corporation 


189 E. Bergen Place 
Red Bank, NJ 07701 
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In Germany, Austria and Switzerland contact: 


Markt & Technik Software Verlag 
Munchen, W. Germany 
(089) 4613-0 


FirsTime is a trademark of Spruce Technology Corporation MS-DOS is a trademark of Microsoft Corporation 
IBM is a trademark of International Business Machines. Inc. @ Turbo Pascal is a trademark of Borland International 
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We do this for you. 

‘“We:” that’s us, the editorial staff; “this” is the magazine. It’s that “you” 
that makes things tricky. 

“You” are a statistical construct. You are 40,000 readers with at least 
40,000 opinions on any random subject, 40,000 ideas about what Dr. Dobb’s 
Journal should be. 

You are a systems programmer for IBM. A DoD Ada specialist. You are the 
DP Manager for a large corporation. You are the only programmer for a small 
firm. You are an independent software developer. A consultant. You’re a struc- 
tural engineer who happens to write software. A researcher. A teacher. A stu- 
dent. 

You program in a high-level language because you’re a high-level thinker, 
and you use assembly language only to tighten the bolts. You have concluded 
that all serious computer languages are fundamentally equivalent, so why 
doesn’t everyone just use Pascal? You think that computer languages differ 
widely in power, efficiency and naturalness, so why doesn’t everyone use Forth 
(since, as surely everyone knows, Forth code is invariably faster and tighter 
and more readable than anything else)? You’ve forgotten in the past year that 
there is any high-level language but C. 

You refuse to program in a high-level language, pouring all your creative 
efforts into high-torque 68K assembly language code. 8086/8088 code. Z80/ 
8080 code. You know the 6502 inside out. You know, even if you are in the 
vanishing minority, that the 6809 is all the processor anyone really needs. You 
know things about the 80286 that they haven’t discovered at Intel yet. 

You know what you like about DDJ. The DDJ articles for 1985 that you 
were most interested in (so far) included pieces dealing with the Unix, CP/M 
and MSDOS operating systems; the C and Prolog languages; the IBM PC, the 
PC/AT, the Mac, the Commodore 64, Z80 machines and “machines in the 
68000/16000 class with virtual memory.” 

You're intelligent, knowledgeable, creative and opinionated, but let’s face 
it: you are not particularly consistent. Neither, consequently, are we. 

This is the hardware issue of Dr. Dobb’s Journal of “software tools for 
advanced programmers.” Why are we publishing hardware construction arti- 
cles in a software magazine? 

We are doing it, of course, for you. The “Fatten Your Mac” article in 
January was one of our most popular articles to date, and other hardware- 
related pieces have been well-received. 

We have a broad constituency, trying as we do to address all advanced 
programmers, and magazine space is heartbreakingly limited. So we try to be 
as broad as possible without sacrificing depth. We publish generalizable code 
whenever we can, emphasizing good algorithms. 

But the canvas tears when stretched to include hardware articles. Although 
there is much non-hardware material in this issue, we have this month com- 
mitted a sizeable portion of the magazine to hardware-related material. We 
offer this collection of hardware articles with a question: how would you like 
to see us cover hardware in the future? With an occasional article when it 
seems appropriate? With an annual hardware issue like this? Or a hardware 
issue of a different sort? In separate monographs /project papers, leaving the 
magazine pages for software only? Or not at all? 


Michael Swaine 
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Pinpointing Your 


Let’s get straight to the point! If you want a powerful network 
to link up to 255 IBM® and IBM-compatible computers, then 
Davong MultiLink™ is clearly the engineered choice for you. 


Let’s pin down a few facts. 





You don’t have to be a networking wizard with 
MultiLink. Menus and help screens make it easy for you to 
control the network—not vice versa. Managing the space on 
one or 255 hard disks is simple. 





You have worry-free expand-ability with Davong 
MultiLink. Nobody has to stop work just because you want to 
add another workstation or file server to your MultiLink 
network—even if you add a Davong DataSystem™ to make a 
file server of your PC. And, file servers also perform double- 
duty as workstations. 





You don’t have to worry about security. MultiLink pro- 
vides password protection and three levels of access for each 
volume. There’s even password protection for each hard disk! 
In addition, you can share volumes without collision worries. 
The shared DOS feature takes care of that. And, automatic 
file-locking capability and optional record locking. Finally! 

A network that provides true file-sharing! 


IBM® is a registered trademark of International Business Machines, Inc. 
Davong MultiLink™ and Davong DataSystem™ are trademarks of Davong 
Systems, Inc. 
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from the network. No need for boot diskettes. Use space from 
any hard disk on the network. Keep all your files in one volume 
or spread them among several. MultiLink allows access to 6 
active volumes at a time. And, accessing other hard disk 
volumes is easy. 





Included with Davong MultiLink is one of the most 
complete print spooling packages on the market today. Print to 
any serial or parallel printer on the network—even multiple 
copies. It’s easy with MultiLink. 


Interested? Find out more about Davong MultiLink by 
contacting your local Davong dealer. 


Why be stuck with less? 


Davong Systems, Inc. 

217 Humboldt Court 

Sunnyvale, CA. 94089 

Phone: (408) 734-4900 
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Small C 

Dear DDJ: 

I don’t know if anybody’s still keep- 
ing track of these things, but I’ve 
found a Small C bug. The source 


int Iptr; /* global integer * / 


routine( ) { 
int r; 
char bytes| 2]; 


[ptr += r — bytes; 


compiled to (Z80 mnemonics) 


... (usual stuff) 

LD HL, (LPTR) 

PUSH HL;;; (save left side of 

+ = statement) 

LD HL,4 

ADD LH,SP 

CALL CCGINT 

EX DE,HL;; 

LDHL? 

ADD HL,SP 

CALL CCSUB 

POP DE (retrieve left side of 
+ = statement) 

ADD HL,DE (add it) 


LD A,L (forget what’s going 
On J 

LD(DE),A (should be LD 
(LPTR),HL) 


which is entirely the wrong idea and 
has very nasty effects (the bug also 
occurs with local destinations for the 
assignment, but with somewhat less 
dangerous results). The problem dis- 
appeared when I removed the last 
code line from plung2( ) (aka plnge2 


in ‘“‘The Small-C Handbook’”’ by 
James E. Hendrix) in cc31.c: 


if ((oper= = ffsub) | 


(oper = = ffadd)) 
result(lval, lval2); 


In my copy of the compiler, this is the 
only place result( ) is used, so I re- 
moved it from cc33.c. The compiler 
compiled itself in this shape, and suc- 
cessfully compiled a reasonably large 
program, so maybe this is the correct 
fix, but I’m not deeply convinced. 
Fixing the compiler is a real adven- 

ture for me, because I don’t know how 
it works. I do wonder what solemn 
oath bound the original authors, so 
that no trace of comment is allowed to 
stain the pure pages of code.... 

Cordially, 

Gregor Owen 

u Software /Hardware 

35 Admiral St. 

Port Jefferson Station, 

New York, NY 11776 
Other fixes and a status update for 
Small C will appear in the August 
issue—Ed. 


Iconoclasm 
Dear DDJ: 
By your response to Frank Gaude’s 
criticism of icons, it appears as though 
you don’t fully appreciate his point. In 
fact, your apparent praise of ‘active, 
growing icons’ only strengthens his ar- 
gument. What will we have if soft- 
ware developers everywhere start cre- 
ating systems with user-definable 
icons? We will have the second stage 
in the evolution of language, as icons 
were the first. What is more, we will 
have multitudinous languages, with 
each programmer or user designing 
the icon interface to [his] own person- 
al taste. Nobody will be able to sit 
down at somebody else’s system and 
run it. We will have the Tower of Ba- 
bel all over again. Confusion. Insan- 
ity. Let’s not do it all over again. 

For those who insist upon perform- 


ing all operations with a single key- 
stroke, there are menus. 

Another thing: metaphors. This 
isn’t really related to icons, except 
that it’s tangled up in your discussion 
of them. I wouldn’t quibble with any- 
one who said that the purpose of soft- 
ware was to entertain, educate, or to 
simply get the job done ... or to ob- 
fuscate, mislead, and lie. But ‘The 
purpose of software is to realize met- 
aphors’? Could you say that again, 
please? Could you illustrate with an 
example? 

Well, gee, now that I’ve gotten go- 
ing it’s just too hard to stop. One 
more thing. I greatly doubt that all of 
your readers know that Richard 
Conn wrote ZCPR3. As a conse- 
quence, I would have thought it to be 
a prudent editorial decision to add a 
note to that effect to his review [DDJ 
#103, May 1985] of the Ampro com- 
puters, which comes bundled with 
ZCPR3. What do you think? 

(By the by, I mean no criticism of 
ZCPR3. It’s the best damn thing to 
come down the pike since the Z80. 
Conn—and Echelon—are to be ap- 
plauded roundly. ) 

Sincerely, 

Dreas Nielsen 

234 NW 30th St. 

Corvallis, OR 97330 
Indeed we should have identified 
Richard Conn’s affiliation.—Ed. 


CP/M 

Dear DDJ: 

I have been using CP/M 2.2 for sever- 
al years, and acquired CP/M Plus 
about 9 months ago. I am pleased 
with it, but I have run up against one 
difficulty, namely that the SAVE pro- 
gram does not correctly save .REL 
files (produced by Microsoft’s BAS- 
COM) loaded by MICROSOFT’s L80 
relocating loader. I wrote a short BA- 
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Another in a series of 
productivity notes on MS-DOS™ 
software from UniPress. 


Subject: Multi-window fuil 
screen editor. 


Multiple windows allow several files 
(or portions of the same file) to be 
edited simultaneously. Program- 
mable through macros and the built- 
in compiled MLISP™ extension 
language. 


Subject: Compiler for MS-DOS. 


Lattice C Compiler is regarded as 
the finest compiler for MS-DOS and 
is running on thousands of 8086 
systems. 


Subject: Powerful Keyed File 
Access for MS-DOS. 


PHACT ISAM is a keyed B+ tree 
file manager providing easy access 
to and manipulation of records in 

a database. 


Trademarks of Lattice, Lattice. Inc UniPress EMACS and MLISP. UniPress 
Software, Inc , MS-DOS, Microsoft. UNIX, AT&T Bell Laboratones, Carousel Tools 
Carousel MicroTools, Inc, PHACT. PHACT Associates. 8086, Intel. TI-PC. Texas 
Instruments, 1BM-PC/AT. International Business Machines: DEC Rambow/VMS 
Digital Equipment Corp 


Features: 


@ Famed Gosling Version. 

@ Extensible through the built-in 
MLISP programming language and 
macros. 

@ Dozens of source code MLISP 
functions; including C, Pascal and 
MLISP syntax cheeking. 

@ EMACS runsonTI-PC™ IBM-PC AT™ 
DEC Rainbow™ or any other MS-DOS 
machine. Requires at least 384k. 

@ Run Lattice® C or PsMake™ in 
the background and EMACS will 
point to any errors for ease of de- 
bugging. PsMake is a UNIX™-style 
“make” utility to automate the proc- 
ess of building complex programs. 
@ Optional Carousel Toots: UNIX- 
like facilities including cat, Cp, Cd, 
logout, Is, mv, pwd, rm, set, sh 

and more. 


Features: 


@ Runs on the {BM-PC™ under 
MS-DOS 1.0, 2.0-or 3.0 

@ Produces highly optimized code. 
@ Small, medium, compact and 
large address models available. 

@ Standard C tibrary. 

@ PLINK— optional full function 
linkage editor including overlay 

and support. 


Features: 


@ Supports fixed and variable length 
records (1-9999 bytes). 

@ Up to 9 alternate indices are sup- 
ported. 

@ Record locking allows each record 
in the database to allow multiple 
simultaneous updates. 

@ Records can be accessed on full 
or partial key. 

@ /ncludes full Lattice linkable library 
and high-level functions. 


Price: 

EMACS $475 
One month trial 75 
Available. for UNIX and VMS. 

PsMake 179 
Carousel Tools 149 
Full System 1,299 


Includes EMACS (object), 
PsMake,: Lattice C, PHACT™ ISAM.and 
Carousel Tools. 


Price: 
Lattice C Compiler $425 
PLINK 425 
Price: 
PHACT ISAM $250 


Source Code available, call for terms. 


For more information on these and 
other UNIX software products, call or 
write: UniPress Software, Inc., 2025 
Lincoln Hwy., Edison, NJ 08877. 
Telephone: (201) 985-8000. Order 
Desk: (800) 222-0550 (Outside NJ). 
Telex: 709418. Japanese Distributor: 
Softec 0480 (85) 6565. European Dis- 
tributor: Modulator SA (031) 59 22 22. 


OEM terms available. 
Mastercard/Visa accepted. 
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Your Leading Source for UNIX Software. 


SIC program to list ASCII files, in- 
cluding line numbers; after finishing 
a listing it prompts the operator for 
another file name. L80 loads the 
-REL file, and shows a starting ad- 
dress of 013CH. (The starting ad- 
dress of CP/M programs is 0100H.) 
If 013C is used as the starting ad- 
dress when the program is saved (us- 
ing CP/M Plus’s SAVE program) it 
does not run properly. It returns to 
the operating system after a few sec- 
onds, having done nothing visible. (It 
does not even ask for a file to list.) If 
the file is saved with a starting ad- 
dress of 0100H, the resulting .COM 


program does execute. It lists the file, 
and returns to ask for another file 
when the first file is completed. How- 
ever, it does not operate properly: 
with each line it prints a set of char- 
acters that do not belong to the file, 
the same set of characters for each 
line. If loaded and saved under CP/M 
2.2 it operates properly, even when 
moved to a CP/M Plus diskette. How- 
ever, if the .REL file is loaded by L80 


with the /G option the program oper- 


ates properly, even under CP/M Plus. 

If the .REL file is loaded by Digital 
Research’s LINK, the resulting .COM 
program executes and lists the file 


The Language of 
Artificial Intelligence 


PROLOG V 


Includes: interpreter, 
sample Prolog programs, 
122-page manual and 
primer, and custom- 
designed binder and 
slipcase. 
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properly, but hangs without return- 
ing to request more input when it has 
finished listing the file. Recovery re- 
quires rebooting the system. 

I have written to Digital Research 
and Microsoft, as well as the vendor 
from whom I bought the computer, a 
MAX80, and have not received any 
assistance. Have you heard about this 
problem? Or might some of your 
readers have some information that 
might be helpful. 

Sincerely yours, 
Maynard B. Neher 
16637 Diaz Drive 
San Diego, CA 92128 


Tiny BASIC 

Dear DDJ: 

I have enjoyed your journal very 
much over the years. I especially 
liked your articles on Tiny BASIC 
and Small-C. I implemented Tiny- 
BASIC on the 6800 after your first 
articles. I wrote a Small-C for the 
6809 when you started the Small-C 
series and did one for the 68000 later. 
When you published the article on 
Tiny BASIC for the 68000 in the Feb- 
ruary issue [DDJ #100 February 
1985] I couldn’t resist downloading 
the code and trying it. 

I have a suggestion for improve- 
ment which I would like to pass 
along. The RND function does not 
generate very good random numbers. 
I wrote the enclosed test program 
which generates pairs of | digit num- 
bers. These should be evenly distrib- 
uted over the 100 possible combina- 
tions. If you try the program you will 
see that there are several pairs of dig- 
its that don’t appear at all. 

I have enclosed an improved RND 
function which eliminates this prob- 
lem. It is only a first try and there is 
room for improvement in two areas. 
First it is restricted to a limit of 
65535 since I didn’t bother to imple- 
ment a 32-bit multiply. Second it is 
based on the multiplicative algorithm 
and I didn’t spend any effort picking 
the best multiplier. It should have a 
sequence length of 4,294,967,296 
however. 

John P. Byrns 

1953 Governors Ln. 

Hoffman Estates, IL 60195 
DD} 
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SUPER PROGRAMMERS edit in XTC to make software 
Sete ual a snap! Just look at these powerful 
eatures: 














XTC’s built-in multitasking lets you run your macros in the foreground 


The Ultimate Programmer's Editor 
WENDIN’S X7Z" 





or independently in the background while you continue editing. A back- 

ground process has full access to editor resources, and can be used to 

translate code from one language to another in REAL TIME, print files in the back- 

ground, or even scan syntax while you type in code. Best of all, you can use XTC to edit source 


and documentation in any programming language! 


All DOS compilers and utilities can be executed from 
within XTC using a single keystroke. While it runs, 
XTC captures your compiler’s output and redirects 
it into your text, so you can compare compiler 
messages with your source code ON THE SAME 
SCREEN. And using XTC’s macro language, Turbo 
Pascal is literally only a keystroke away. You can 
use other compilers and utilities inside XTC too — 
like Lattice ‘“‘C,’’ Microsoft Pascal, and IBM’s Basic, 
to name a few. 


XTC has the most powerful macro language in the 
editing world. XTC’s macros aren't just keystrokes 
assigned to keys; they’re real programs that can be 
used to automatically edit source code and data 
files. Like any real programming language, XTC has 
control structures like IF THEN ELSE, WHILE DO, 
REPEAT UNTIL, FOR NEXT, DUPLICATE N 
TIMES, INDEFINITE LOOP, EXIT, and BREAK 
LOOP. XTC also has INTEGER, BOOLEAN, and 
STRING variables to hold numbers, conditions, and 
pieces of text. 


With XTC you can display up to 8 different files or 
parts of the same file on the screen at once. XTC’s 
windows are programmable and can even be linked 
together to share files. XTC also has 20 other buffers 
that you can use to hold files and blocks of text. 


If you already know Wordstar commands, then you 
don’t need to learn a new set of commands. If you 
want to customize XTC, just write macros to emulate 
the key layout you’re used to. XTC can also read 
Wordstar files, and can even strip off all of the non- 
standard high bits with a single command. 


XTC lets you edit files entirely in memory (using all 


available memory), or paged to disk, for maximum 
flexibility. You can choose how XTC buffers text. 


e UNDO N TIMES 


e TAB EXPANSION/ 


| XTC outperforms any other program- 
| mable editor on all IBM/PC, /XT, and 
| /AT computers (and true com- 
| patibles). If you want to feel the 
| power of XTC before you buy it, just 
| ask for our demo disk (only $10) and 
| try it out. When you buy XTC, we'll 


knock 10 bucks off the price. 


| To get your copy of XTC now, order 
t over the phone — we can ship it 
| the same day you call! Or, send in 


jan order, just like this one: 


Shipping, Handling, 
Insurance 


Want it COD? Add this 


TOTAL IT UP, AND SEND IT QUICK! 





e 150 PAGES OF 


e REMOVE WORDSTAR HIGH COMPRESSION MODE DOCUMENTATION 


BITS e EXTRA LONG LINES 
e EDIT GRAPHICS DISPLAYS ®MACRO COMPILER 


e RUNS ON IBM / PC, XT, AND 
/ AT COMPUTERS (AND 


e AUTOINDENTING MODE e TELEPHONE SUPPORT TRUE COMPATIBLES) 


XTC comes with 7,000 lines of source code jam- 
packed onto two DSDD disks. Includes 13 modules 
written in Pascal, and 2 assembly libraries you can 
use to access the PC’s screen, intercept software 
interrupts (like INT 21H functions), allocate and 
deallocate memory, and load and execute pro- 
grams. It’s all included FREE for your recreation and 
enjoyment! 
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by D. E. Cortes! 


Random Moves 

We are still collating the letters we’ve 
received on that pseudo-random num- 
ber generator (PRNG) we showed in 
February. Don’t use it. We promise 
emended and improved versions in 
Forth and assembly language next 
month. 


Turbo and CP/M Plus 

The estimable Turbo Pascal product 
has a design error that makes its 8-bit 
version unusable under CP/M Plus 
(CP/M 3.0) and dubious under CP/M 
2.2. When you compile a program to 
form a.com file, Turbo includes sev- 
eral kilobytes of runtime support in 
the output, along with the code gen- 
erated from your Pascal source. 
That’s not the problem; runtime sup- 
port code is necessary. 

Part of the job of that runtime li- 
brary is to initialize the program’s en- 
vironment when it is loaded and be- 
gins execution. Anyone who has 
written assembly code for CP/M 
knows what must be done: the stack 
pointer must be set up and the size of 
available storage discovered. The usu- 
al way of sizing storage is to load the 
BDOS entry address from location 6. 

It’s a universal CP/M convention 
that system programs can reserve 
storage for themselves at the top of 
the program area by reducing that 
address. DDT and SID do it; XSUB 
does it; spoolers and key-macro pro- 
grams do it; and CP/M Plus has ele- 
vated it from an informal convention 
to an elaborate system of Resident 
System Extensions (RSXs). As a re- 
sult, the top of storage is a dynamic 
value in CP/M. It can change from 
day to day if the BIOS expands and 
from moment to moment as system 
programs are loaded. 

The Turbo compiler, however, 
treats the size of storage as a con- 
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stant. At compile time, it places in 
the runtime code a constant number 
reflecting the size of the program as 
the compiler found it; when the .com 
is executed, it expects storage to be 
exactly the same size. If programs 
compiled under Turbo V.3 find less 
storage than the compiler had, they 
abort with the message ““Not enough 
memory.” This has nothing to do 
with how many bytes the program 
needs. Indeed, our test program 
didn’t need any; it simply wrote “‘hel- 
lo” 10 times. If we compile it when no 
RSXs are present but run it when one 
is, it aborts. Run under SID, it aborts. 
It’s a strange oversight in an other- 
wise solid product. 


Turbo and Standard Pascal 
Understand, please, that we /ike Bor- 
land and its marketing policies. Its 
products give good value for the mon- 
ey, and Borland backs them with sup- 
port that is much better than average. 
Between Borland and_ the 
“shareware” pioneers, a whole new 
level of price/performance is being 
established in the software industry. 
So spare us the letters about how 
Borland has done so much for soft- 
ware, etc., etc. We appreciate all 
that. 


Turbo Not Standard 
But we are getting just a tad tired of 
the claim that Borland’s Turbo Pas- 
cal is “standard.” It is definitely not 
standard Pascal, which, in a compiler 
that seems destined to dominate the 
micro world, is a damn shame. Its 
price and good user interface com- 
mend it for school use, but we cer- 
tainly couldn’t recommend it for that 
purpose, and we doubt any college 
computer science department would 
accept it despite its friendliness. 
Let’s talk about the Pascal stan- 


dard, how Turbo violates it, and what 
that costs its users. 


The Ignored Standard 

There is a Pascal standard. In the 
US., it is sanctioned by the IEEE 
Computer Society and the American 
National Standards _ Institute 
(ANSI); abroad, by the International 
Standards Organization (ISO). AI- 
though ANSI finalized it in Decem- 
ber 1982, it was available at least two 
years earlier in drafts that differed 
from each other in only the minutest 
points and that nobody expected 
would change in any significant way 
prior to final approval. 

The standard language omits fea- 
tures that many people want. AI- 
though it defines a minimum Pascal, 
it explicitly opens the door to exten- 
sions. It defines an extension as “a 
modification to ... this standard that 
does not invalidate any program com- 
plying with this standard. . . except by 
prohibiting the use of one or more par- 
ticular spellings of identifiers.’’ In 
other words, you may add any fea- 
tures you like to Pascal as long as you 
compile standard programs correctly. 
The last clause even lets you add new 
reserved words to the language, words 
that could be user-defined names un- 
der the standard. 

The standard lays two burdens on 
the developer. First, you must docu- 
ment variations from the standard in 
certain ways; that’s usually no prob- 
lem. The other is that a translator 
must “be able to determine whether or 
not a program violates ... this stan- 
dard ... and report the result of this 
determination to the user.” In other 


words, you must warn the user when a 
program is not standard Pascal. 


That’s essential to portability; other- 
wise what you intend to be a standard 
(hence, portable) program can slip 
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into an unstandard state that is unde- 
tectable until you attempt to port it. 

Standard Pascal is a small language 
but still bigger than, say, Fortran IV; 
more flexible than, say, COBOL; and 
easier to teach, to use, and to imple- 
ment than, say, Ada. If there were 
general compliance with the standard, 
we could teach people a single lan- 
guage they could use anywhere, at 
least for small and medium problems. 
If you moved to a new implementa- 
tion, you would have to learn the pe- 
culiar extensions it supported, but you 
could still do useful programming 
while you learned. And programs you 
wrote using the standard language 
would be portable anywhere. 

It’s ironic that many newer and less 
forgiving standards (e.g., for graphics, 
for terminal escape sequences, for var- 
ious buses) garner wide respect and 
conformance, while the modest and 
unconfining Pascal standard, draws 
only scorn from developers. 


Turbo Versus the Standard 

The Turbo manual (Turbo Pascal 
Version 3.0 Reference Manual, Bor- 
land International, Inc., 1985) 
doesn’t contain the kinds of docu- 
mentation called for by the standard, 
but it does have Appendix D, “Turbo 
vs. Standard Pascal” (p. 319). This 
shows at once that Borland is un- 
aware of the ANSI/ISO standard. 
“The Turbo Pascal language,” it 
says, “follows the Standard Pascal 
defined by Jensen & Wirth in their 
User Manual and Report... .” 

We hate to disturb such blissful 
slumber, but the language has 
changed in the 10 years since the User 
Manual and Report was published. 
The ANSI/IEEE committee convened 
in 1979 and published its first draft 
standard in 1980, two years before 
Turbo was born. 

Turbo follows its outdated stan- 
dard “with only minor differences in- 
troduced for the sheer purpose of efh- 
ciency.” Efficiency for whom or 
what? For users who want to port 
programs or to port their hard-won 
knowledge of the language? Surely 
not! What then? Efficiency in the ex- 
ecution of the generated object pro- 
grams? We will examine the case for 
that as we go; it doesn’t hold up. 
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Finally, 


Get the full range of features C pro- 
grammers working in UNIX™ have 
come to expect from their Lint and 
Make utilities. With Pre-C™ you can 
detect structural errors in C programs 
five times faster than you can with a 
debugger. Find usage errors almost 
impossible to detect with a compiler. 
Cross-check multiple source files and 
parameters passed to functions. Un- 
cover interface bugs that are difficult 
to isolate. All in a single pass. Capa- 
bilities no C compiler, with or without 
program analyzing utilities, can offer. 
Pre-C outlints Lint, since you can 
handle analyses incrementally. 


Pre-C’s flexible library approach lets 
you maintain continuity across all 
programs in your shop, whether you 
use Pre-C’s pre-built libraries, func- 
tions you already have, or some you 
might want to buy. 


Plus, you’re not limited to one partic- 
ular library. Pre-C keeps track of all 
the libraries you’re using to make 
sure that code correctly calls them. 

With Pmaker™ you can update and 
track every module in your program. 
When you make a change in any 
source or include file, all you do 








Make for MS*- DOS 


is run Pmaker. It will recompile 
changed modules and relink your 
program. With any compiler or linker 
you choose. Pmaker can update an 
object module library when one or 
several of the object modules are 
changed. You can use Pmaker to 
handle any task when a change 
requires several steps. 


Wiis 





Pre-C by Phoenix. $395. Pmaker 
by Phoenix. $195. 

Call (1) 800-344-7200. 
In Massachusetts (617) 762-5030. 

Or, write: Phoenix Computer 
Products, Corp., 1420 Providence 
Highway, Suite 115, Norwood, 
MA 02062. 


PROGRAMMERS’ PFANTASIES™ BY PHOENIX 


Programmers’ Pfantasies, Pre-C, and Pmaker are trademarks of Phoenix Computer Products Corporat 
MS is a trademark of Microsoft Corporation. UNIX is a trademark of AT&T Bell Laboratories. 
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Could the changes be to improve 
the efficiency of the compiler itself? 
Very possibly; we’ll see that the elim- 
ination of some hard cases may have 
let the compiler be a little simpler. 

Or could the manual be referring 
to the efficiency with which the de- 
velopers can bring a product to mar- 
ket? Did Turbo drop the hard parts 
so the developers could finish their 
compiler more quickly? 


New and Dispose 

Turbo v.1.0 skipped the standard way 
of managing dynamic storage, the 
procedures New and Dispose. V.2 
added them but in incomplete form. 
Turbo supports the basic features: 
New(ptr) creates a new one of what- 
ever ptr is declared to address, and 
Dispose(ptr) reclaims the space used 
by whatever ptr points to. 

The standard allows a special case 
for allocating variant records (records 
that may have different lengths de- 
pending on a tag field). Suppose that 
ptr bases a variant record type and 
that tag is one of the constants that 
select among the variants. New(prr) 
will allocate space to hold the longest 
variant, but New(ptr,tag) should allo- 
cate just enough space to hold the tag 
variant. Dispose(ptr,tag) is then re- 
quired to release such a record. 

Turbo omits these special forms. 
Why? Not to enhance the user’s effi- 
ciency; it will seriously complicate 
your life if you try to import to Turbo 
a program that uses this feature. Nor 
for the program’s efficiency; the 
shortest variant of a record is often 
the most common one, and lacking a 
way to allocate short records, you can 
waste a lot of dynamic storage— 
sometimes enough to make a pro- 
gram infeasible. 

Turbo didn’t have to ban these 
cases. It could have accepted them 
while ignoring the tag parameters. 
Then standard programs would at 
least compile. But why not support 
them in full? The standard says tag 
must be a constant; therefore, Turbo 
could still tell at compile time how 
many bytes New allocates or Dispose 
releases. The extra compiler code 
couldn’t be large, and the cases have 
no effect on the runtime library. 

But the manual adds insult to inju- 
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ry. “The restriction,” it chirps, ‘‘is 
easily circumvented by using the 
standard procedure GetMem.”’ 
Wrong on every count! GetMem is 
not “standard”; that name is unique 
to Turbo. Nor is GetMem type-se- 
cure, as New is. Plus it requires a 
count of bytes to allocate, so to use it 
you must know in detail how Turbo 
allocates space in variant records. 
Then heaven help you if you change 
the record type but forget to change 
the GetMem calls! (Turbo has a non- 
standard SizeOf function, but it 
won't give you the size of a particular 
record variant. ) 


The Page Procedure 

The standard specifies a list of proce- 
dures and functions that a compiler 
must predefine. Turbo has all the 
trigonometric functions, all but two 
of the I/O procedures (discussed 
below), and dozens of nonstandard 
routines for “turtle” graphics, special 
I/O operations, DOS calls, and so on. 

But it lacks the simple procedure 
Page. Page(f), where f is a text (AS- 
CII) file, is supposed to append a 
newline if the file isn’t currently at 
the head of a line then ‘“‘cause an im- 
plementation-defined effect on the 
textfile f, such that subsequent text 
... Will be on a new page if the text- 
file is printed on a suitable device.” 
Like the other Pascal I/O routines, 
Page with no parameter works on the 
file output by default. 

Page may not seem like much of a 
loss, but its absence puts the user in an 
infuriating bind. Like the other Pascal 
I/O procedures, Page cannot be du- 
plicated by user code. User proce- 
dures can’t have default parameters, 
and there is no way to perform the es- 
sential test of a file variable to see if it 
is at the head of a line. (A Page that 
always writes a newline will some- 
times force an extra blank sheet where 
the standard Page will not.) 

What do you do to import a stan- 
dard program that relies on Page? 
You find every use of Page and 
change it to call one of two proce- 
dures that you must write yourself — 
procedures that can’t duplicate the 
standard actions perfectly. If the out- 
put isn’t satisfactory, you must dig 
into the program’s logic. Changing 


the logic of an imported program, one 
written perhaps by total strangers, 
because of a stupid omission from a 
compiler is not a good use of time. If 
you write a program that you will la- 
ter export, you must include your 
homebrew PageNamedFile and Pa- 
geDefault procedures, surrounded 
with big comment blocks explaining 
how to alter them to use Page if it 
should be available. 

What would Page cost: 64 bytes of 
code in the runtime library and maybe 
32 bytes of table space in the compil- 
er? Its overhead would be undetect- 
able in a compile and zero at runtime. 
Why did Turbo omit it? We'll never 
know. Appendix D says it’s because 
“the CP/M operating system does not 
define a form-feed character,” but 
that is pure waffle. If there is one 
thing common to all CP/M systems, 
it’s ASCII, whose form feed is respect- 
ed by every printer we know. 


Get and Put 

Wirth gave a mathematician’s defini- 
tion of I/O. He began with a rigorous 
definition of the file data type. Then 
he chose a minimal set of operators 
on that type, operators whose actions 
are regular enough to be useful in for- 
mal verifications of program correct- 
ness. Finally he defined all file opera- 
tions in terms of these minimal 
operators. The standard follows the 
User Manual and Report in giving a 
rigorous logician’s definition of file 
I/O, all based on the operators Get 
and Put. 

What do these fundamental opera- 
tions do? First, understand that to 
Wirth a file variable is a species of 
pointer variable. He says that a file is 
a sequence of objects, while a file vari- 
able is a pointer to only one of the ob- 
jects in the sequence. The declaration 


fr : file of real; 
asserts two things: somewhere there 
is a sequence of real numbers (possi- 
bly empty), and under the right cir- 
cumstances fr will address one of 
them. The statement 


Reset(fr); 


sets up the circumstances; fr now ad- 
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dresses the first real number in the 
file. For comparison, recall that 


pr: “real; 


sets up a variable pr that points to a 
single real number, as in 


xX := 3.5 * pr’; 


Therefore, Reset(/r) sets things up so 
that fr addresses a real number: 


x BSF fr": 


Thus did Wirth unify the treatments 
of I/O and dynamic storage. 


Standard Get and Put 
The Get procedure advances a file 
one unit in its sequence. After 
Get(/r), fr addresses the next real 
number in the sequence. 

Rewrite opens a file for output; the 
statements 


nr: file of real; 
Rewrite(nr); 


create an empty sequence of real 
numbers and make nr point to a real 
of undefined value. You may use nr 
exactly like any other pointer to reals: 
nr™:= sqr(pr~) + sqr(fr*): 
pr* := saqrt(nr’); 


The statement 
Put(nr); 


appends the current referent of nr to 
its file and makes nr point to unde- 
fined space again. 

Do you find these ideas confusing, 
difficult, baffling? Do you think they 
make for an inflexible system? Or do 
you agree that they are simple, logi- 
cal, consistent, and highly useful? 

The Borland programmers did not. 
Turbo does not support Get and Put, 
nor does it permit a file variable to be 
used as a pointer. It offers only the 
Read and Write procedures (which 
to Wirth are composite operations 
defined in terms of Get and Put). 


Simplicity? 
Appendix D offers four excuses for 
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the omission. One is that Read and 


_Write are “‘easier to understand.” A 


computer science teacher would never 
say that. Good teachers explain the 
basis of things. You cannot explain 
the basis of Read and Write without 
referring to Get and Put; you can state 
their actions as arbitrary rules to learn 
by rote, but you can’t explain them. 

Of course, if you are already an ex- 
perienced programmer—one used to 
Fortran or BASIC, perhaps—you 
might find the Read and Write pro- 
cedures more familiar than Get and 
Put, and you might confuse familiar- 
ity with simplicity. That’s a common 
error, aS anyone will attest who has 
tried to explain the arbitrary, but to- 
tally familiar, rules of English to a 
foreigner. 


Versatility? 

One of the three other excuses is that 
Read and Write are “‘far more versa- 
tile” than Get and Put. That’s rub- 
bish, but our hypothetical ex-Fortran 
user wouldn’t realize it without close 
study of Pascal. 

With Put, you can assign and reas- 
sign an output value as often as you 
like; the value isn’t committed to the 
file until Put is issued. That concept 
isn’t in the thinking of a PL/I user; in 
most languages, once you associate 
data with a file, it’s gone. Once you 
comprehend the idea, however, you 
can find lots of uses for writing data 
without putting it. 

Get is even more useful. If you’ve 
read Kernighan and Plauger’s Soft- 
ware Tools, you may recall how often 
they resort to the ungetc( ) procedure 
to replace the character last read 
from a file. With Pascal standard in- 
put, you can look at the next value 
coming from a file without commit- 
ting yourself to removing it from the 
file. You simply test the value ad- 
dressed by the file variable. If you 
want it, you assign it somewhere else 
and issue Get. You may also leave it 
for another part of the program to 
use, or discard it with Get. Here’s a 
procedure, free of side effects, to strip 
blanks from an input file: 


procedure fstrip(var f: text); 
begin 
while (not eof(f)) 


and (.’=~)do 
Get(f) 
end; 


Afterward, either the next element of 
the file is a nonblank or the file is fin- 
ished. Try writing a comparable 
function in C or BASIC—or in Turbo! 
It takes either ungetc( ) or your own 
input function with a static variable. 

Because Get and Put are standard 
and highly useful, you may assume 
that Pascal programmers make use of 
them. A lot of Pascal programs are 
floating around on minis and main- 
frames and in textbooks. The odds 
are good that if you try to import one 
to Turbo, you'll fail because the pro- 
gram uses Get or Put. You may ex- 
pect to find as well that the assump- 
tions behind Get and Put are woven 
deeply into the program’s logic; most 
programs will need major changes to 
run without them. 


Less Overhead? — 
Appendix D offers the excuse that, 
without Get and Put, “variable space 
overhead is reduced, as file buffer 
variables are not required.” True, the 
compiler would have to allocate a 
buffer the size of one file data item in 
addition to the sector buffer it needs 
for DOS I/O. Alternatively, it could 
round the size of a data item up to a 
whole number of DOS sectors, add one 
sector, and allocate a single buffer of 
that size (this ensures a complete data 
item will always fit in the buffer). 
Banning standard use of the file 
variable lets the compiler get by with 
a single sector buffer. Does that re- 
duce “variable space overhead”? Of 
course not! Now you have to define 
the variables! You need extra vari- 
ables to hold data items before they 
are written to the file, instead of mere- 
ly assigning and reassigning until a 
Put is done. You need variables to 
hold items after reading them from 
the file and before using them in ex- 
pressions. And if it turns out the items 
shouldn’t have been read, Turbo of- 
fers no ungetc( ), so you get to define 
one—again adding code overhead. 


Speed? 


Appendix D’s premier excuse is that 
“Read and Write give much faster 
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I/O.” Do they? True, a naive imple- 
mentation of Get might often copy 
data from a sector buffer to an item 
buffer. But Read requires copying 
data to a user-defined variable, 
whereas a smart implementation of 
Get could avoid moving data at all. 
Many times when the file data type is 
smaller than half a sector (the typical 
case), Get need do no more than in- 
crement a pointer, check for end of 
sector, and return. That’s quick! 

If a new sector must be read, a Get 
implementation might have to move 
part of the last sector from the end of 
the buffer to its head before reading 
more data. But that move always in- 
volves Jess than a single data item! 
Under MSDOS, when the file data 
type is composite (record, set, or ar- 
ray), a clever compiler would push 
the whole burden onto the DOS. It 
would allocate no sector buffer at all, 
just an item buffer, and use “handle” 
I/O to read or write only as many 
bytes as needed. 

A good implementation of Get and 
Put might entail 15 percent more 
code than the present Turbo library, 
but by moving less data, it might well 
execute in 25 percent less time. 


Procedure Parameters 
One of the least-regarded features of 
standard Pascal is the ability to pass 
a procedure or function as a parame- 
ter. Let’s say “routine” instead of 
“procedure or function.” Then the 
feature sounds simpler: the ability 
to pass one routine the name of an- 
other. Its purpose is to let a routine’s 
behavior be parameterized along 
with its data. Unfortunately, neither 
Jensen nor Wirth nor the standards 
committee could find a good example 
of its use except “finding the mini- 
mum of a function by bisection.” 
Now really, what can an honest pro- 
grammer say to that but “Gah, 
Wha?’’—meaning, surely you can 
omit such an abstruse feature from a 
language without anyone’s noticing! 
Let’s try to suggest some examples 
to show why it should stay. The first 
might be a generalized sort that 
takes, as a parameter, the name of a 
function that compares two data 
items and returns True if one is less 
than or equal to the other. Now de- 
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fine two comparison routines: 


function Up(a,b:real): Boolean; 
begin Up := (a <= b) end; 


function Down(a,b:real): Boolean; 
begin Down := ( b<=a ) end; 


The identical generalized routine will 
sort ascending if we pass it the name 
of Up and descending if we pass it 
Down. 

Notice that if we make Up and 
Down take, not the data to be com- 


pared, but ordinal indices to the data, 
and if we also pass a procedure Swap 
that interchanges data items given 


‘their indices, we will have removed 


all dependencies on data type from 
the general sort routine. We need 
only pass it the Up or Down and the 
Swap that are appropriate to the data 
type we want to sort. 

As another example, consider a sit- 
uation where a service routine can de- 
tect an error, for which the correct 
recovery action depends on the condi- 
tions under which the routine was 


@ We have over 300 
complete, tested, and, documented functions. 


All source code and demo programs are included. 


@ The library was specifically designed for software 
development on the IBM PC, XT, AT and compatibles. There are no royalties. 
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can easily “customize” functions. Novices can learn from the thorough comments. 


We already hare the functions you are about to wtte 
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Svs. 
FORTH 


for the Apple® eB 


Fixed point speed can rival that of float- 
ing point hardware. But the details have 
been a well kept secret—until now. The 
following graphs were generated by fixed 
point examples from the ISYS FORTH 
manual. 


Parallel Resonance with Bett 
BASIC 213 sec ISYS FORTH 27 sec 


Hydrogen 3p Orbital eee 
BASIC 492 sec ISYS FORTH 39 sec 


Fast native code compilation. Sieve 
benchmark: 33 sec 

Floating Point—single precision with 
trancendentals, 

Graphics—turtle & cartesian with 70- 
column character set 

Double Precision including D*/ 

DOS 3.3 Files read & written 
FORTH-83 with standard blocks 
Full-Screen Editor 

Formatter for word processing 

Macro Assembler 

Price: $99, no extra charges 


ILLYES SYSTEMS 
PO Box 2516, StaA 
Champaign, |L 61820 


Technical Information: 
217/359-6039, mornings 
For any Apple ][ model, 48K or larger. 


Apple is a registered trademark of Apple 
Computer, 
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called. There are three ways to han- 
dle this: (1) You can write a version 
of the routine for each recovery 
method; (2) you can pass the routine 
an error-recovery action number and 
put a big error-handling case state- 
ment in it; or (3) you can pass the 
routine the name of an error-han- 
dling procedure. Each client may 
then contain a local procedure to do 
error recovery in its own style. The 
service routine remains general, 
while the recovery actions are local- 
ized in those parts of the program 
that establish the need for them. 

Turbo Pascal is not alone in ban- 
ning procedure parameters; it’s the 
most ignored feature of the language. 
Why? It seems like a fairly simple 
thing to implement—at first. At run- 
time, it amounts to just pushing the 
address of a routine on the stack. At 
compile time, the compiler must 
check that the parameter list of the 
routine that is passed matches the pa- 
rameter list that the receiving routine 
declared, which is easier to do than to 
describe. 

The real problem is the implemen- 
tation of Pascal’s rules for the scope 
of variable names. When procedure 
parameters are forbidden, the dy- 
namic scope of a name matches its 
lexical scope; the compiler can tell 
from the program text exactly what 
names are accessible at any point in 
the program. When procedure pa- 
rameters are allowed, cases occur 
where the referent of a name can be 
resolved only by extra stack linkages. 
That complicates the runtime code 
for stack management and for proce- 
dure call and exit. 

Although Borland may seem to 
have made a good tradeoff in drop- 
ping procedure parameters, the usual 
arguments can be made for the fea- 
ture: it’s useful and likely to appear in 
published programs, especially in the 
more sophisticated ones, those that 
are at once most valuable and hardest 
to modify. We might add that, inas- 
much as Turbo threatens to be the 
single most common implementation 
of Pascal ever, Borland has an obliga- 
tion to support the whole language. 

The stack management is not that 
complicated anyway. Full Pascal 
stack linkage no doubt would slow 


down an 8080 or Z80 implementa- 
tion (for once there’s a legitimate 
reason for restricting the CP/M ver- 
sion!), but that is not true of the 8086. 

What would be the penalty for full 
Pascal in the MSDOS version of Tur- 
bo? The compiler would be slightly 
more complicated, as noted. And the 
runtime code? Studies have shown 
that the overwhelming majority of 
references are to local and global 
names and to parameters. The trou- 
blesome references, to names defined 
in intermediate scopes, are very rare. 
(It’s tempting to modify the scope 
rules to forbid just these references, 
but that would create incredibly sub- 
tle portability bugs.) If the generated 
code optimizes common usages and 
penalizes the rare ones, the cost 
should be small. 


Summary 

The Pascal standard defines a nice 
little language, but despite the lan- 
guage’s popularity and the standard’s 
age, the features of the language and 
the liberality of the standard are still 
misunderstood or unappreciated. The 
justifications in the Turbo manual’s 
Appendix D just don’t hold water; 
likely the real reason Turbo is non- 
standard is that the Borland pro- 
grammers were in a hurry to get to 
market so they dropped some fea- 
tures that were obscure (to them) or 
of little use (to people who don’t un- 
derstand Pascal well). Yet Turbo 
Pascal has many admirable features. 
If it added to them full compliance 
with the Pascal standard, it would be 
without question the finest imple- 
mentation of Pascal for personal 
computers and among the finest on 
any computer. 
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(MATIS, the complete User Interface development tool has been selling for $150.) 


Why the radical price cut? 
We decided after looking over the compe- 
tition that MATIS had so many advan- 
tages it should be made available to more 
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aggressively so you could easily afford to 
have MATIS in your bag of tricks. We 
hear from MATIS users in the USA and 
France that it is a truly loveable product. 
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MATIS windows are beautiful. 
Display any portion of any screens you 
create at any point in your program. 
Scroll in any direction manually with cur- 
sor Keys...or automatically. 


And the screens are 
HUMUNGEOUS! 

MATIS screens can be just about as big as 
you want...up to 65,534 rows by 
65,534 columns! The number of screens 
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Print big MATIS screens directly. 
One command sends your screens to your 
printer with no need to program special 
routines when your virtual screen is big- 
ger than your terminal screen. 


User input fields are a snap. 
Creating fields for data entry is easy with 
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Denis Moran 
President, Softway, Inc. 
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screen builder? 
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Written in Assembler, MATIS routines 
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Separates screen design from the core 
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by Allen Holub 


As part of my ongoing struggle to 
turn MSDOS into Unix, I write a lot 
of Unix-like utilities. This month 
we'll look at a better MSDOS directo- 
ry utility called “ls” (after the Unix 
model). Ls uses several subroutines 
useful in their own right. A multico- 
lumn print utility and an MSDOS in- 
terfacing utility (which corrects vari- 
ous deficiencies in the one supplied 
by Lattice) are two of these. 


How To Use Ls 
Ls prints a sorted directory in a mul- 
ticolumn format. The columns are 
read like a magazine; that is, an en- 
tire column is read from top to bot- 
tom, then the next column is read. Ls 
prints volume labels, which are in 
boldface, first. Next it prints directo- 
ries; they are underlined. Then it 
prints the files. Finally, it prints the 
amount of space used by the directo- 
ry (instead of the space left on the 
disk), along with a file and directory 
count. The figure (page 21) shows 
various sample outputs from ls. 
Usage is: ls [options] <file list>. 
The legal command line options are: 
-a 
List all files, including hidden files. 
Like Unix, all files whose names be- 
gin with a period (. ) are considered 
invisible (even if the hidden attribute 
bit isn’t set); -a causes these files to 
be printed too. 
-c<num> 
Print the output in <num> columns 
instead of the default five. Up to six 
columns can fit on a screen. The 
command 


Is -cl *.c >foo.bat 
is useful for making batch files. No 
spaces are allowed between -c and the 


number. 
-d 
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List only directories (no files). 

-e 

Sort by extension and then by file- 
name. This groups all the .c files to- 
gether and all the .obj files, and so on. 
The filenames are sorted within their 
extension categories (1.e., bar.c pre- 
cedes foo.c, and both precede bar.obj). 
-f 

List only files (no directories). 

~| 

List in long format. -l lists the file size, 
the create time and date, and the file’s 
attributes. Possible attributes are: 


D -—(D)irectory 

H —(H)idden 

L — Volume (L)abel 

M -— File has been (M )odified 
since last backup 

R —(R )ead only 

S—-(S)ystem 


-s 
Suppress directory name-underlining 
and label-boldfacing so that you can 
direct the output to a printer without 
the extra escape sequences. Note that 
directories sort to the top of the list 
because the graphics require an ESC 
(which has a smaller value than any 
letter) at the beginning of the name 
string. Because the ESC is no longer 
present, the directory names will be 
mixed in with the filenames when you 
use -S. 

-u 

Print directory unsorted. 

You may combine options (ls -ac3s 
* c) or list them separately (Is -a -c3 
-s *.c). You can place them anywhere 
on the command line (ls *.c -l is the 
same as ls -I *.c). 

The <file list> isa list of the files 
you're looking for. You can list files 
explicitly (Is foo.c bar.c) or with am- 
biguous references (ls *.c). A directo- 
ry may precede the filename (ls 





\src\tools\ls.c). You can use / as 
well as \ to separate directory names 
(Is /src/tools/Is.c). If you request a 
single directory, then Is lists the con- 
tents of that directory. If no <file 
list> is given, ls prints all files in the 
current directory. 

To make the underlining and bold- 
facing work, you must find the line 
‘“device=ANSI.SYS” in your con- 
fig.sys file when the system boots. If 
you don’t do this, your screen will look 
funny unless you use the -s option. 


Getting a Directory 

You can access MSDOS directories in 
two ways. A set of low-level DOS 
function calls “Search for First En- 
try” (Ox11) and “Search for Next 
Entry” (0x12) work much like the 
equivalent CP/M functions. (An ex- 
ample of CP/M directory accessing 
appeared in the March 1985 C 
Chest.) Because functions 11 and 12 
force you to construct an FCB, and 
they search only the current directo- 
ry, they’re pretty hard to use. 

Luckily, DOS versions 2 and higher 
provide two easier-to-use functions: 
‘Find First” (Ox4e) and ‘“‘Find Next” 
(Ox4f). When you pass Find First a 
pointer to a string holding a filename, 
it loads information about the re- 
quested file into the current disk 
transfer area (DTA). If you give an 
ambiguous file reference, subsequent 
files that match the reference are re- 
trieved with a series of Find Next 
calls. Find Next must use the same 
DTA as Find First used. 

If an error is encountered (such as 
not finding the requested file), the 
carry bit is set when the DOS inter- 
rupt returns, and an error code is put 
into the AX register. DOS v.2 sets the 
AX register to 0 on success, but DOS 
v.3 doesn’t seem to do this; you actu- 
ally have to look at the carry bit. 
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These two routines have several 
nice features. The name can contain 
ambiguous file references and direc- 
tory specifiers, so you can search for 
a file anywhere in the file system. 
You can even use constructs like “. .” 
or“. .\..” if you want. Perhaps nicer, 
you can use / as well as \ to separate 
directory names in a complete file 
reference. (This is actually true for 
all the low-level MSDOS file func- 
tions. The insistence on that idiotic 
backslash is an anomaly of the 
MSDOS-supplied shell, command- 
.com. Why couldn’t they use / to sep- 
arate directories and - for command 
line switches?) Another nice feature 
is that you can specify a disk id as 
part of the filename (c:/foo). 

All is not wonderful, though. The 
two directory-searching routines do 
have problems. Unix directories are 
just files. The only difference be- 
tween a Unix directory and any other 
file is the value of the directory attri- 
bute bit. MSDOS uses a similar mech- 
anism, except that directories are 
special: they can’t be accessed like 
other files, they have a length of zero, 
and so forth. However, they will show 
up in a directory search as if they 
were files (with an attribute bit that 
says you’re looking at a directory). 

So, if you request a directory from 
Find First, you'll get a single listing 
with the matching directory name. 
You won’t get a listing of the files in 
that directory; to do this, you have to 
specify /*.* after the directory name. 
A search for “. .” will return a struc- 
ture that actually contains the name 
of the parent directory. 

A second problem is the root direc- 
tory. MSDOS doesn’t think that the 
root directory exists. If you request / 
or \ from Find First, it comes back 
with a file-not-found error. Similarly, 
requesting b: produces the same error. 
You need to ask for a file (or *.*). 

Another problem is the volume la- 
bel. A filename returned by DOS has 
all the blank padding removed and a 
period inserted between the name 
and extension. Unfortunately, DOS 
also puts the period into a volume la- 
bel. If a disk is labeled LONGLABEL, 
the DOS directory search will yield 
LONGLABE.L as the volume label. 
Ls doesn’t do anything to correct this 
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problem. 

The final problem is actually a de- 
ficiency in the Lattice C I/O library. 
(The people at Lattice claim that the 
next revision of the compiler fixes 
this, but that doesn’t help us now.) To 
use Find First/Next, you need to 
mess with the DTA (the place where 
the directory will end up after the 


C:\SRC\LS is/ 





HARDFILE GAMES SRC 
BIN ANCLUDE TEXT 
DOS LIB UTIL 


3 files (22172 bytes, 21 K), 8 directories 
C:\SRC\LS Is -la/ 


HARDFILE 
BIN. 

DOS 
GAMES 
INCLUDE | 
LIB 

SRC 


——— 


TEXL 


Oe 


AUTOEXEC.BAT | 
COMMAND.COM — 
CONFIG.SYS 
IBMBIO.COM | 


IBMDOS.COM 


OO 000000 © 


.. 


05 
22042 
35 
8964 
21920 


3 files (569056 bytes, 58 K), 8 directories 
C:\SRC\LS Is -a/text/drdobbs 


FOO. —-——=SAL SNR 
CROOT.NR Q_BITMAP.NR 


5 files (56197 bytes, 54 K), 3 directories 
C:\SRC\LS Is -cl fe/text/drdobbs 


SAVE.BAT 
CROOT.NR 

LS.NR 
Q_BITMAP.NR 
SORT.NR CC 


5 files (56197 bytes, 54 K) 
C:\SRC\LS Is -d/text/drdobbs 


FOO 


1 directory 


function call). Unfortunately, your 
disk I/O system uses the DTA. If 
you're not doing any file 1/O, you can 
put the DTA where you want it (with 
a DOS function Oxla call) and then 
forget about it. But, if you’re working 
with files too, you'll have to put the 
DTA back where it came from to do 
file accesses. 


AUTOEXEC.BAT 
COMMAND.COM 
CONFIG.SYS 


12-20-84 17:22:18 LM 
12-24-84 15:13:04D 
12-20-84 17:23:04D 
12-24-84 15:20:32 D 
12-24-84 15:17:56D 
12-24-84 15:22:26D 
12-24-84 15:13:54D 
12-24-84 15:20:58 D 
12-24-84 15:17:58D 
4-09-85 17:42:50M 
8-14-84 8:00:00 
1-22-85 22:19:06 M 
7-05-84 15:00:00 RHS 
7-05-84 15:00:00 RHS 


SAVE.BAT 
SORT.NR 


Figure 1. 
Sample Outputs from Ls 
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DOS function 0x2f returns the cur- 
rent DTA in ES:BxX. Unfortunately, 
the Lattice DOS interface functions 
(bdos, int86, etc.) won’t let you get at 
the ES returned by the get DTA func- 
tion. They push all the registers, do 
the DOS call, then restore the regis- 
ters, overwriting the ES returned by 
DOS. Nor will a subsequent seg- 
read( ) call return the value you need 
for ES. 

My solution to this problem was to 
write a more sensible DOS interface, 
which we’ll talk about in a moment. 
Although Is doesn’t need to put the 








The GREENLEAF FUNCTIONS GENERAL 
ccommnnlBRARY has over 200 functions in C and assembler. 
Strength in DOS, video, string, printer, async, and systems 
interface. All DOS 1 and 2 functions are in assembler for speed. 
All video capabilities of PC supported. All printer functions. 65 
string functions. Extensive time and date. Directory searches. Polled 
mode async. (If you want interrupt driven, ask us about the Green- 
leaf Comm Library.) Function key support. Diagnostics. Rainbow 


DTA back, an example of how to re- 
store the DTA is given in Listing Five 


(page 41). 


Program Description 

Ls itself appears in Listing One (page 
25). MAXDIR (line 12) is the maxi- 
mum number of files that will be list- 
ed; change this if you need more than 
132 (132 names are 6 columns by 22 
lines). 

Ls uses two subroutines that have 
appeared in previous columns: qsort 
(DDJ #102, April 1985) to sort the 
directory and getargs (DDJ #103, 
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Color Text series. Much, much more. The Greenleaf Functions. Simply 
the finest C library (and the most extensive). All ready for you. 
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_. TODAY! 
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s already has over 200 functions for the IBM PC, XT, AT, and compatibles 


s already complete . 
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» already compatible with all popular compilers 
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= already optimized (parts in assembler) for speed and density 
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May 1985) to parse command line ar- 
guments. The argument table for get- 
args is on lines 27—37 of Listing One 
(getargs.h on line 2 is used by getargs, 
as we discussed back in May). 

The global variables on lines 19-26 
are set by the various command line 
switches. The variables on lines 39-44 
are more general purpose. 

Directories are stored in an argv- 
like array of pointers to character 
strings: Dirs (line 39). Dirv and Dirc 
(40-41) operate like argv and argc. 
Total (line 42) is the total size, in 
bytes, of all listed files. Numfiles and 
Numdirs (43-44) are the number of 
files and_ directories found, 
respectively. 

Find_first( ) and find_next( ) 
(lines 47-77) do the DOS calls. They 
use the DOS interface function given 
in Listing Three (page 34). 

The REGS structure is not the 
structure of the same name defined in 
the dos.h supplied by Lattice. This 
version of REGS is defined in my- 
dos.h (Listing Two, page 33, lines 
14-23). REGS is actually a functional 
superset of the Lattice REGS struc- 
ture (that is, you can use the REGS 
defined in mydos.h to talk to the Lat- 
tice interface functions, but you can’t 
use the Lattice REGS to talk to the 
dos( ) function in Listing Three). 

REGS has fields for all the registers 
you need to access MSDOS, including 
the segment registers. It is a union 
that defines the normal registers so 
that you can easily access the high, 
low, or both bytes. The two register 
images are superimposed (i.e., defini- 
tions for byte offsets are superim- 
posed over definitions for word off- 
sets). For example, given a pointer p 
to a REGS structure, p—x.ax access- 
es the AX register, p—~h.ah gets the 
high byte (the AH register), and 
p—h.al gets the low byte (the AL 
register). You can retrieve only the 
AX, BX, CX, and DX registers in 
this way. The others (SI, DI, ES, CS, 
SS, DS) are all accessed through the 
x part of the union (p—x.es). 

The interface function, dos( ) 
(Listing Three), is called with 
dos(regp); where regp is a pointer to 
a REGS type structure. It returns the 
status register, as returned by DOS. 
You can use dos( ) only with the 
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More Power Than You Thought Possible 


Arity offers the first serious implementation of Prolog for IBM personal computers. Arity/Pro- 
log is a powerful, highly optimized, and extended version of the logic programming 
language Prolog. Imagine building software applications with a language that solves prob- 
lems through deduction and logical inference. The task of creating complex programs is 
much faster and easier, resulting in lower development costs. Arity/Prolog is now in use ina 
wide range of applications in industry, business, research, and education. The solution— 
the Arity/Prolog Interpreter: 
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B Virtual databases, each Text screen 
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megabytes 
ganyt i Integrated program- 
Bi Floating-point ming shell to MSDOS 
amet 
spinal Hi Comprehensive set of 
B String support for evaluable predicates 


efficient text handling B Definite clause 


grammar support 









Arity/Prolog Interpreter $495.00 


Arity also offers the Arity/Prolog Compiler and Interpreter, a sophisticated development envi- 
ronment for building Al applications. Essential for producing fast, serious production code. 


Arity/Prolog Compiler and Interpreter $1950.00 


The Arity/Prolog Demo Disk is available for $19.95. ll Arity/Prolog products run on the IBM PC, 
XT, AT, and all IBM compatibles. ll To order, call (617) 371-2422 or use the order form below. 
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small and one of the medium (the P) 
memory models because it assumes a 
16-bit pointer. 

Dos(_ ) copies all fields of *regp ex- 
cept x.ss and x.cs into their equivalent 
registers (lines 59-66 of Listing 
Three). DOS is invoked with the INT 
21 on line 68, then a// the registers are 
copied back into *regp. The routine 
returns with registers restored to their 
original state (1.e., before the dos( ) 
call). The function gregs( ) (lines 
93-124) gets the register contents but 
doesn’t do a DOS call; it’s used for ini- 
tializing a REGS structure. 

Find_first( ) and find_next( ) both 
return 0 on success or the error code 
passed back by DOS on failure. When 
they succeed, the current DTA will be 
loaded with a shuffled-around version 
of the directory entry for the request- 
ed file. You use the FILE_INFO 
structure, typedefed in mydos.h (List- 
ing Two, lines 30—39), to access this 
information. Mydos.h also has a 
bunch of macros for extracting stuff 
from packed fields (lines 59-79), 
With these, you can get at the various 
fields of the creation time and date, as 
well as test for specific attributes. 

Dirtoa( ) (Listing One, lines 
86-135) converts a FILE_INFO 
structure into an ASCII string (see the 
figure). The ANSI escape sequences 
used for underlining and boldfacing 
are added to the string in dirtoa( ). 

The final directory-related routine 
is fixup_name( ) (Listing One, lines 
174-223). This routine takes care of 
all the problems with accessing the 
root directory and getting the files 
inside a specified directory that we 
discussed earlier. It appends *.* or 
/*.* onto directory names where 
necessary. 

Add_entry( ) (Listing One, lines 
225-253) puts the strings returned 
from dirtoa( ) into the Dirv array. It 
also processes the -a and -f flags. If 
an attribute bit is set when you call 
find_first( ) or find_next( ), then 
only those files that have the indicat- 
ed attributes will be found; the -d op- 
tion is processed on line 281 using 
this mechanism. Unfortunately, be- 
cause there’s no way to request files 
(only directories), -f must be pro- 
cessed by hand in add_entry( ) (lines 
241-246). 


The only remaining nonobvious 
function in ls.c is ecmp( ) (lines 
147-162), which is used by qsort to 
do a sort by extension. It skips over to 
the extension parts of the two strings, 
compares the extensions, and if they 
match, goes back and compares the 
actual filename. Refer to the April C 
Chest for more information on how 
qsort works. 


Multicolumn Printing 

The multicolumn printing is done by 
ptext( ) (Listing Four, page 37), 
which prints out an argv-like array of 
pointers to strings in multicolumn for- 
mat. Ptext( ) originally was written 
for a version of the Unix print utility 
pr and works quite well in that 
application. 

Ptext( )’s calling syntax is: 


ptext(linec, linev, outfile, numcols, 
colwidth, numrows); 

char **linev; 

FILE *outfile; 


Linev is the array of string pointers, 
linec is the number of pointers in the 
array, outfile is the stream to which 
output will be sent, numcols and 
numrows are the number of rows and 
columns, respectively, and colwidth is 
the width of a single column. 

Ptext( ) is called in Listing One on 
line 170. Here num_cols is the num- 
ber of columns. The column width is 
80/Num_cols. The number of rows 
is computed with (dirc/Num_cols) 
+ (dirc % Num_cols != 0); dirc is 
the total number of names to be 
printed. Dirc % Num_cols != 0 eval- 
uates to 1 if Num_cols doesn’t divide 
evenly into dirc and to 0 if it does di- 
vide evenly. 

Several practical problems having 
to do with multicolumn printing will 
vary from application to application. 
The first problem is a lone carriage 
return. Some text formatters under- 
line text by printing the text itself, 
then a carriage return, then a line 
containing all the underscores. When 
you have several columns, you can’t 
print the carriage return because that 
takes you to the left edge of the page 
rather than the left edge of the cur- 
rent column. The problem is solved in 
ptext( ) by backspacing to the correct 
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place. If your printer doesn’t support 
a backspace, you'll have to modify 
this part of the code (lines 93-103). 

The next problem is ESC sequences 
(which take up no space in the out- 
put). Different sequences are com- 
posed of different numbers of charac- 
ters. Rather than try to recognize 
various escape sequences, ptext( ) 
just assumes that all sequences use 
four characters (one for the ESC and 
three normal characters that follow). 
This assumption lets us handle the 
various Set Graphics Rendition 
(SGR) sequences correctly (we need 
these for the underlining and boldfac- 
ing), but it won’t handle the escape 
sequences needed to change fonts on 
printers and the like. So, you may 
need to make this part of ptext( ) 
more sophisticated (the relevant code 
is on lines 117-129). 

The third problem is with the AN- 
SLSYS driver provided by IBM (at 
least with DOS v.3 running on a PC/ 
AT—I’d appreciate someone testing 
other versions of DOS on other ma- 


chines and sending me the results). If 
you try to underline the left-most 
character on a line, the entire line 
ends up underlined. If you explicitly 
turn off underlining, the nonunder- 
lined characters overwrite the under- 
scores, but underscores still extend 
from the last character you wrote to 
the physical end of line on the screen 
(i.e., from the place where you wrote 
a carriage return to the right edge of 
the screen). To make matters worse, 
the underline attribute sticks on, so 
subsequent lines end up underlined 
too. I didn’t want to rewrite AN- 
SI.SYS, so I kludged a solution to this 
problem in ptext( ). If “IBM” is #de- 
fined at the top of the module, a space 
will be inserted as the left-most char- 
acter of every line. I realize this isn’t 
a real solution, but it works every- 
where I’ve needed to use ptext( ). 
While we’re on the subject of AN- 
SILSYS, I found another bug a few 
days ago. The “Erase in Display” and 
“Erase in Line” leave the cursor in 
the wrong place. Erase in Display 


C C. h es f (Text begins on page 20) 


should home the cursor; instead, it 
leaves the cursor at the left edge of 
row 2. Similarly, Erase in Line puts 
the cursor at the left edge of the next 
line; it shouldn’t move the cursor at 
all. Obviously, the driver is just print- 
ing blanks to erase the line, but it 
should put the cursor back where it 
belongs when it’s done. 

The Erase in Line problem is par- 
ticularly bad when you try to erase the 
bottom line: the screen scrolls up a 
line when the cursor is sent past the 
bottom, so, even if you put the cursor 
back where it belongs, you lose the top 
line of the screen. If anyone knows 
any other bugs in ANSI.SYS (or has 
fixes for them, maybe a new version of 
ANSILSYS), please send them in so I 
can put them in the column. 

This month we talked about direc- 
tories; next month we’ll continue the 
discussion with a version of the Unix 
utility ‘“‘make,” which automates the 


recompilation of modular programs. 
Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 191. 





Listing One 

1: #include <stdio.h> 

2: #include <getargs.h> 

3: #include <mydos.h> 

ie J@ipa ia ee ee aie eee eRe — SP Ee eee Te ee + 
a: LS.C: An MSDOS directory utility 

rece 

Puss (c) Copyright 1985, Allen T. Holub. All rights reserved. 

S< This program may be reproduced for personal, non-profit use only. 
Be i aes a en en tet ee I SS et | + 
103) */ 

ll: #define CARRY 0x01 /* Carry flag mask for an 8086 *:/ 
12: #define MAXDIR 132 /* Largest directory which will be printed * / 
13: #define BOLDFACE "\033[1m" /* Ansi esc sequence to turn bold face on */ 
14: #define UNDERLINE "\033[4m" /* " underline on */ 
15: #define ALL_OFF "\033[Om" /* P attributes off */ 
16: 

17: #define EOS(s) while(*s) s++ /* Position s at the end of the string * / 
I IFW aps ag et hat ns SRE EEE ORE Rp ee mee ges 7 
193% int Longfmt = QO; /* Global variables set by command line * / 
20: int Unsorted = 0; /* switches. aad 
en: 3nt Files_only = 0; 

2e% 2nt No graphics = 0; 

Soe. 28t Dirs_only = 0; 

263.-int List_all = QO; 

29%. int Num_cols = 5; 

26%. int Ext sort = QO; 
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C Ches f (Listing Continued, text begins on page 20) 


Listing One 

27: ARG Aregtab[] = 

28% { 

29: { 'a', BOOLEAN, &List_all, "List all files (including hidden)" },. 
30: Ciel, EEG. &Num_cols, "Print output in <num> columns" v, 
31: { 'd', BOOLEAN, &Dirs_ only, "List only directories" hy 
ae { 'e'; BOOLEAN, &Ext sort, "Sort by extension" Hy 
33: (E'S ROOREAN . &Filesg only, "List enly files" Le 
34: { '1', BOOLEAN, &Longfmt, "Print directory in long format" Bs 
a0 3 { 's', BOOLEAN, &No_graphics,"Suppress ANSI graphics chars" }; 
36: { 'u', BOOLEAN, &Unsorted, "Print directory unsorted" a 
Sie 


38: #define TSIZE (sizeof(Argtab)/sizeof(ARG)) 


39: static char *Dirs[MAXDIR] . /* Place to put directory * / 
40: static char **Dirv = Dirs ; /* Like argv for directory * f 
41: static int Bite = 0 : /* Like arge for directory fF 
42: static long Total = OL : /* Sum of sizes of all files *} 
43: static int Numfiles = 0 ; /* Number of files found * / 
44: static int Numdirs = QO . JRF " ditectories. " */ 
45: extern char *malloc(); 
AO $9] Be ee pi Oe cn hi genie OO Ute ve et ee oe ek le * / 
47: find_first( filespec, attributes, regp ) 
48: char *filespec ; 
49: short attributes; 
50: REGS *regp; 
what 
52:3 /* Get directory information for the indicated file. 
53: * Ambiguous file references are ok but you have to use 
54: * find_next to get the rest of the file references. 
sat * In this case, The regs structure used by Find first 
56: * must be passed to find_next. 0 is returned on success, 
aes * otherwise the DOS error code is returned. 
58: + / 
59's regp->h.ah = (char) FINDFIRST ; 
60: regp->x.dx = (short) filespec . 
61: regp->x.cx = attributes ; 
oe return (int)( (dos(regp) & CARRY) ? Fegp->xGax + -O.-)}: 
3: 
OB SS [Pe eh ee lea rasa pa tay eae ak Ak hee Ot oes Aaa * / 


65: find_next ( regp ) 
66: REGS *regp; 


G7 { 

68: /* Get the next file in an ambiguous file reference. A 
69: * call to this function must be preceded by a 

707 * find first call. The regp argument must be the 

rs * Same register image used by the find first call. 

ee * QO is returned on success, otherwise the error code 
73: ” generated by DOS is returned. 

74: * f 

fs regp->h.ah = FINDNEXT ; 

ag return (int)( (dos(regp) & CARRY) ? regp->x.ax : O )3 
FEE fe an re ieee gn See a ee a ee go hah * / 
79: doscall( id, regp ) /* Do the DOS system call * / 
80: REGS *regp; /* specified by "id", *regp a] 
ee /* is modified to reflect the * / 
82: regp->h.ah = id ; /* results of that call ¥ 
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83: dos( regp ); 


84: } 
She hao he pa ee ae a a Se a eR Re Ree a Re ee nae x} 
86: dirtoa( s, p, longfmt ) 
874 char ss 
88: FILE INFO eps 
Bet 
90 /* Convert a FILE_INFO structure to an ascii string. In longfmt 
91: * all information about the file (name, size, date & time, 
G2: * mode) is used. Possible modes are: 
93: * 
94: ” R - Read only H - Hidden 
wo * S - System L - Volume label 
96: * D - Directory 
97: - M - archive bit is set (file has been modified) 
98: * 
99: * If longfmt isn't true, only the name is printed. Maximum 
1.00? * string length in long format is 52, in short format is 21 
$01 * Volume label names are printed in bold face (since this will 
102 * put an ESC in the name the volume label will sort to the front 
103 * of the list). Directories are printed underlined (these will 
104 * immediately follow the directories). The number of characters 
105 * in the string (not including the terminating null) is returned. 
106 * / 
LO: char *startstr = s; 
108: int .:.2% 
109: if( !No_ graphics && (IS_LABEL(p) | | IS _SUBDIR(p)) ) 
110: sprintf(s, "%s%s%s", IS_LABEL(p) ? BOLDFACE : UNDERLINE, 
bias p->fi_name, ALL_OFF ); 
EZ: else 
Ti3s sprintf(s, "Zs", p->fi_name ); 
114: EOS(s); 
ti if( longfmt ) 
116 { 
117: for( i = strlen(p->fi_name); i++ < 12 ; *s++ = ' nt 
118: - /* Pad out the name field */ 
119: sprintf( s, " 261d ", p->fi_fsize ); 
120: EOS(s) ; 
121: sprintf(s, "%Z2d-%02d-Z202d %.2d:%02d:%202d", 
i C_MONTH(p), C_DAY(p), C_YEAR(p)-1900, 
FZ3? CHR Cp): C MIN(p), C_SEC(p) ik 
124: Ss += 17 , 
1253 *¥s¢+ = ' '3 
i2c: if( IS_READONLY(p) ) *s++ = RM. +3 
L273 if( IS _HIDDEN(p) ) *s44+ = 'H" 3 
128: if( IS _SYSTEM(p) } *s44+ =<.°S'; 
129: if( IS_LABEL(p) ) *s+4 = 'L" ; 
E30: if( IS SUBDIR(p) ) *s¢++ = 'D' ; 
131: if( IS_DIRTY(p) ) *st+4+ = 'M' ; 
132: *5s = 0; 
133: ) 
134: return( s - startstr ); 
ee 
Ro gry | fPyaeeda ul adhe hse tee ene eng rey et teeter et eS ra 
137: haswild(s) 
138: char ees 
1359254 ate 
140: /* Skeurn true if ¢ Hie.a 82" ore? ae ey 
141: for( 3; *s 3; stt) i se 
: i * sa * * == ? 
ae lt See : (Continued on next page) 
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C Ch es f (Listing Continued, text begins on page 20) 


Listing One 

144; return 0; 

1452.) 

BEG Sf ie pit a piers elect eee ee a oe Laks ag dd © SR eg ee eo ee * / 
147: ecmp( slp, s2p ) 

148: char ¥¥ sip, **s2p; 

149: { 

150: /* Comparison routine for Sorting a directory by extension */ 
151% char *¥sl, *s2; 

£522 int rval; 

153% Pork elim elpy 2S) Re fal ta.) oe ee Met Vie ffs eta ) 

154: : 

155: for{. 82 = *s2p; *s2 -&& *s2 te.',' 8& *52 fe ° eae he 2 ae 

Loos : 

157: if( rval = stremp(sl, s2) ) /* If the extensions don't match */ 
158: return rval ; /* return the strcmp value *y. 
159: for(sl=*slp, s2=*s2p ; *sl==*s2 && *51 && ¥*sl] != gS gp ie BQa4) 
160: : 

161: EEC RA aE set 2 Go A) eee See 1 Rez) Js 

IpZe 4 

EY ep ri te case By ale cit ghi cian Sk ein ate Su aca Ee hi es *] 
164: printdir(dirc, dirv) 

1052. int dirc ; 

166: char ERA i ry 

2 eee | 

168: if( !Unsorted ) 

169: qsort( dirv, dirc, Sizeof(*dirv), Ext_sort ? &ecmp : 0); 
170: ptext( dirc, dirv, stdout, Num_cols, 80/Num_cols, 

‘71 (dirc/Num_cols) + (dirc % Num_cols != 0) ); 
bres 23 

Be Ui ip BPRS A Se etal erect Ser cree 5 tag eke hie wl ns athe eo * / 
174: char *fixup_name( name, regs, info ) 

L175: char *name; 

176: REGS *regs; 

177: FILE INFO *info; 

L7O2: 

179; /* If the name specifies an implicit file (ie. it asks for 

180: * the directory rather than the files in the directory), 

181: * modify i€ te weak for files (éye-".-3U petomes Se he 1G 

182: * / 

183: Static char but [80}.;..*p--; 

184; if( !find_first( name, ALL, regs) ) 

185: { 

186: /* If the requested name was found, and that name is 

187: * a sub directory, append \*.* to the requested name 
188: : 

189; if( !IS_SUBDIR(info) ) 

190: return( name ); 

191: Strncpy( buf, name, 80 ); 

192: strncat( buf, "\\*.*",80 ); 

193s return: .C buf} 

194; } 

195: else 
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196: 
LO 7-3 
198: 
199: 
200: 
201: 


2027 
203% 
204: 
205+ 


206: 
207: 
208: 
209° 
ZI? 
Zant 
2 hes 
eS: 
214: 
EVOS 
216: 


2172 
218: 
219% 


220 
pee 


222% 
223% 


224: 


225% 
226: 
e273 
228: 
229: 
230: 
231% 
2325 
233: 
23%% 
ZDa2 
2 Gt 


237% 
238: 


239: 
240: 


241: 
242: 


243: 
244: 


2453 
246: 


247 


248: 
249: 


250% 
204% 


252% 


2s 


/* If you didn't find anything, and a non-explicit 

* directory is requested (ie. "..\.." or "b:" ) then 
* set up the name to get the root directory on the 
* 
* 


indicated disk. 


if( name[1] == ':' ) /* Take care of the * / 
{ /* disk designator first */ 
buf[0] = name[0]; 
nett) wise 
if( !*(name += 2) ) 
Bee 2 ee eS /* If the current dir * / 
Pero ee 3 /* on another disk is * / 
buff 4)].=.'*"s /* requested... * / 
baftiop 0:4 
return( ‘buf. )+ 
} 
else 
beet 2. O23 
} 
for( p = name ; *p 3; ptt ) 
FEC Ap ee eto Se OWN Ty ae eee 8 
return( name ); 
strucatt. Bets Ale 2s BO): 
return( buf ); 
} 
) 
Peso bn eh gl ae ee ee nr ee eee * / 
add_entry( p ) 
FILE INFO *D 5 
{ 
{* Add an entry to the directory array (dirv) and update 
* various associated globals. Hidden files are not 
* printed unless -a was given on the command line. 
* (which will cause List_all to be set). As with 
* Unix, file names starting with the character Vg Re 
" also not printed unless -a is specified. If -d was 
¥ given on the command line (Dirs_only will be true) 
* and files won't be printed. 
*/ 
char buf [64]; 
register int strlen; | 
if( !List_all && (IS_HIDDEN(p) || *p->fi_name == '.') ) 
return ts 
if( IS_SUBDIR(p) ) /* Entry is a directory * / 
Numdirs++; /* Adjust directory count * / 
else if( Dirs_only ) f* Eatry 18 efile * / 
return 1; /* Don't print files * / 
else if( !IS_LABEL(p) ) /* Entry is a file * / 
Numfiles++; /* Adjust file count * / 
strlen = dirtoa( buf, p, Longfmt ); 
if( ++Dirc > MAXDIR || !(*Dirv = malloc( strlen + 1 )) ) 
return QO; 
strcpy( *Dirv++, buf ); 
Total += p->fi_fsize; 
return 1; : 
} (Continued on next page) 
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Theword ts out dBASE [is the worlg 


“dBASE rif fe rae eK ae “AshtonTate has : OOH Tes hes aly 
mature, best performing created dBASE III, the it again. dBASE III should 
AIRY EVANS Rey aL LLL a - connoisseur’s ra iS ana Ya company vr 


language eceind ror) any _. Oa Aa CBA erate stay oie Dire top 
computer.” —se -_ _ — ini _ 


ee 
eae sma grt 


Pies to 


ee ves, 


©Ashton-Tate 198% All rights reserved. 





5 bestdaia management sofiware. 


dBASE III™is the indus- Assistant feature makes 
try standard for managing dBASE III the data man- 





information on personal agement system of choice. 
computers. Writ- With so many 
ten to take full ereat reviews, 
advantage of the dBASE III is 
capabilities of the the clear choice 
IBM® PC, Personal in data man- 
Computer AI," agement. 
compatible com- For a dealer 
puters and other near you call 
popular personal (800) 437-4329, 
computers, ext. 2333. In 
dBASE III offers Colorado call 
virtually limitless data- (303) 799-4900, ext. 2333. 
handling capabilities. And, Fee Soap gad oaeeie Speaoe ee 
for novices, a built-in cy Moree Pye 


(BASE II The data management standard 


AN 


ASHTON: ‘TATE 


S ee OW 


Circle no. 5 on reader service card. 





C Ches f (Listing Continued, text begins on page 20) 


Listing One 


269: 


270; 
a£713% 
Liz: 


273: 
274: 
275: 
276: 
277: 
278: 


279: 
280: 
281: 
282: 
283: 
284: 


285: 
286: 
287: 
288: 
289: 
290: 


291: 


2925 
293: 
294; 
2952 
296: 
297: 
298: 
299: 
300: 


301: 
302: 
303: 
304; 


3053 


306: 
307: 


32 


main(argc, argv) 


int 
char 


abort: 


) 


argc; 
*¥*argv; 


/* Get a directory. Given a list of files on the command line 
* (file names may be ambiguous) will print a sorted directory 


* of those files along with a total file and byte count. 
* / 


static REGS regs : /* Needed for DOs calls */ 
static FILE_INFO info /* DOs puts dirs here */ 
static char *name = "k,#", /* File name * / 


gregs ( &regs ); /* Initialize the regs structures */ 
regs.x.dx = (word) &info; /* Change the Disk Transfer Addr */ 
doscall( SETDTA, &regs ); /* to point at info structure * / 


argc = getargs( argc, argv, Argtab, TSIZE ); 


if( Longfmt ) /* -1 is always printed in 1 column */ 
Num_cols = 1; /* even if -cN was given on the cmd */ 
/* line * / 


1£C arge-de-2) /* Put the requested file name into */ 
/* "name." The default is *,* "s 
name = *(++argv); 
if( arge == && t!haswild(name) ) 
name = fixup _name( name, &regs, &info )3 


if( !find_first(name, Files only ? ALL_FILEs : ALL, &regs)) 
{ 


if( !add_entry(&info) ) 
break; 


if( haswild(name) ) 
while( !find_next( &regs ) ) 
if( !add_entry(&info) ) 
goto abort; 


} 
name = *(++aregv); 
) while( --arge > 1 ); 
printf Or Nal ys 
printdir:< Dire, Dirs. )-: 
printt. Chal ys 
if( Numfiles ) 
printf("2d fileZs (21d bytes, 42d K)", 
Numfiles, Numfiles == 17 "" ; Mom) 
1otal, Total /i024* 5): 
} 
if( Numdirs  ) 
{ 


if( Numfiles ) 
Prince t(hs; Cys 


printf("Zd director%s",Numdirs, Numdirs ==1 ? Oye s tes" 2 


End Listing One 
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Listing Two 


_— 
OVOAOAN AU EWN Fr 


— 
Ne 
ee 08 


13% 


14; 
ios 


16: 
1/7: 


18: 
19; 
20: 
Zi*% 
Zes 
23: 


24: 
eat 
26: 
27 
28: 
29: 


30: 
3434 
32% 
oat 
34: 
30% 
36: 
37s 
38: 
39: 


40: 
als 
42: 
43: 
44: 
45: 
46: 
47: - 
48: 
49: 
50s 
51% 
52: 
53: 
54: 
a5 
56: 
STs 
58: 


55s 
60: 
61: 


/*------------- - - - - = = = 5 5 5 rrr rnn + 
* 

* MYDOS.H Various defines for talking to dos 

* 

ost sel pg lil tse sgl in cans ce lll sn, els cs mars Sa dl psa pe Sy gs eh iy gr ci eh pl Si i lm ir ag a Sig: eS pe + 
* 

si Typdefs for using dos(). Note that this structure can be used 

* by the various routines supplied by Lattice (intdos, bdos etc.) 

* but dos() can't use the structure defined in Lattice's dos.h. 

* 

* Since "REGS" and "byte" are both also defined in dos.h, you 

tf shouldn't #include both of them in the same place. 

* 
typedef short word; 
typedef char byte; 
struct LREG { word ax, bx, CX, ax, si ;.dt,..@3;- 68) 69; 2083-4; 
struct SREG { byte al,ah, bl,bh, cl,ch, dl,dh; 3 


typedef union 

{ 
struct LREG 
struct SREG 


a 


Stuff needed to get a directory from MSDOS 


* 
* 
* The FILE_INFO type structure is filled by a find first or find 
* next command (dos system calls Ox4e and Ox4f). 

* 


typedef struct 
{ 


char fi_resv[21]; /* Bytes 0-20 Reserved by DOS * / 
char fi. attrib; /* Byte 21 File attribute vF 
short fi_time; /* Bytes 22-23 Create/update time * / 
short fi_date; /* Bytes 24-25 Create/update date * / 
long fi_fsize; /* Bytes 26-27 File size in bytes * / 
char fi_name[13]; /* Bytes 28-40 File name & extension */ 
FILE _INFO; 
/* 
* Macros to extract information from a FILE_INFO. In all these macros 
* the argument "p" is a poshorter to a FILE_INFO structure. Note that 
" the C_YEAR and C_SEC macros compensate for MSDOS wierdnessess. 
* 
* IS READONLY(p) File is read only. 
* IS HIDDEN(p) File is invisible in normal directory searches 
* IS SYSTEM(p) File is a system file 
* IS LABEL(p) Info is a volume label, not a file. 
* IS SUBDIR(p) File is a directory 
* “25 BIRT Yt 22 True when file is written to and closed, set to 
* False by the program backup. 
* C HR(p) Hour of last update or create (0-23) 
* C _MIN(p) Minute of last update or create (0-59) 
* C SEC(p) Second of last update or create (0-59) 
* C_YEAR(p) Year of last update or create (1980-2099) 
* C MONTH(p) Month of last update or create (1-12) 
* C DAY(p) Day of last update or create (1-31) 
* / 
#define READONLY 0x01 /* Attribute bits * / 
#define HIDDEN 0x02 
#define SYSTEM 0x04 (Continued on next page) 
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C Chest 


Listing Two 


62: 
63: 
64: 


653 
66: 
67: 


68: 
69: 
70: 
fiz 
#22 
733 


74: 
#3: 
763 
773 
#83 
79:3 


80: 
81; 
82: 


83: 
84; 
85: 
86: 


#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


(Listing Continued, text begins on page 20) 


C_MONTH(p) 
C_DAY(p) 


LABEL 0x08 
SUBDIR 0x10 
DIRTY 0x20 
ALL (READONLY DIRTY 
ALL _FILES (READONLY DIRTY 
NORM_FILES (READONLY DIRTY =) 
IS_READONLY(p) ((p)->fi_attrib 
IS_HIDDEN(p) ((p)->fi_attrib 
IS_SYSTEM(p) ((p)->fi_attrib 
IS _LABEL(p) ((p)->fi_attrib 
IS_SUBDIR(p) ((p)->fi_attrib 
IS DIRTY (Cp) ((p)->fi_attrib 
C_HR(p) ( ((p)->fi_time 
C_MIN(p) ( ((p)->fi_time 
C SEC(p) ( ((p)->fi_time 
C YEAR(p) ((((p)->fi_date 
C (Cp 
C (Cp 





)->fi_date 
)->fi_date 


Directory related BDOS function 


FINDFIRST Ox4e 
FINDNEXT Ox4f 
SETDTA Oxla 
GETDTA Ox2Zf 


Listing Three 


ls TETELE 
Zs SUBITL 
33 NAME 
4: INCLUDE 
5: 3-- 
Ge. 
72 °3 
35:3 
9: REGS STRUC 
10: AX_REG DW 
ll; BX REG DW 
12: CX_REG DW 
13: DX_REG DW 
14; SI_REG Dw 
15: DI REG. DW 
16: ES_ REG DW 
17:-CS_REG DW 
18: SS_REG DW 
19: DS_REG DW 
20: REGS ENDS 
21: OFF EQU 
2227 2= 
S28 
24: 3; name 
Ze 28 
26: 3; synopsis: 
273° 
34 


DOS INTERFACE FUNCTION 


SYSTEM | HIDDEN | SUBDIR | LABEL) 
SYSTEM | HIDDEN ) 

& READONLY ) 
& HIDDEN ) 

& SYSTEM ) 
& LABEL ) 

& SUBDIR ) 

& DIRTY ) 

Std OREES) 

So Se Oat. 

<< 1) & Ox3e ) 

>> 9) & Ox7f ) + 1980) 
S55) & Oedt: D 

y= OsTf: 3 
numbers 


Copyright 1985 by Allen I. Holub 


DOS 
DOS .MAC 


Structure used 


End Listing Two 


to transfer register 


that this structure is 
that defined in the 
by Lattice. This particular 


structure is defined in \include\mydos.h 


0 ; contents. Note 

0 ; a supperset of 

0 ; dos.h supplied 

0 ; 

0 

0 

0 

0 

0 

0 

4 ; Offset to arguments 
dos -- Do a dos function call 


#include <mydos.h> 


(Continued on page 36) 
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THE PROGRAMMERS SHOP) 


helps save time, money and cut frustrations. Compare, evaluate, and find products. 








SERVICES 


* Programmer's Referral List - Dealer's Inquire 







Free Literature - Compare Products 






RECENT DISCOVERIES 


SMALL TALK for PCDOS - 


« Compare Products - Newsletter Evaluate products Compare competitors. Learn about new alternatives. One free call : 

- Help tind a Publisher * Rush Order brings information on just about any programming need. Ask for any “Packet” or | “Methods” has objects, 

» Evaluation Literature tree - Over 700 products | “Addon Packet”: C1] ADA, Modula C) “Al” CIBASIC O"C" OCOBOL CD Editors windows, browser, 

+ BULLETIN BOARD - 7 PM to 7 AM 617-826-4086 COFORTH COFORTRAN CIPASCAL CJUNIX/PC or CDebuggers, Linkers, etc inspector. PCDOS $239 


ARTIFICIAL INTELLIGENCE 


ExpertLISP - Interpreter: Common 
LISP syntax, lexical scoping, toolbox, 
graphics. Native code COMPILER. 
512K MAC $465 
ExpertEASE - Expert system tool. 
Develop by describing examples of 
how you decide. PCDOS $625 
EXSYS - Expert System building 
tool. Full RAM, Probability, Why, 
serious, files PCDOS $275 
GC LISP - “COMMON LISP”, Help, 
tutorial, co-routines, compiled 
functions, thorough. PCDOS Call 
INSIGHT 1 - Expert Sys. Devt, 
decent PCDOS $ 95 
M Prolog - full, rich, separate 
work spaces. MSDOS $725 
PROLOG-86 - Learn fast, Stan- 
dard, tutorials, samples of Natural 
Language, Exp. Sys. MSDOS $125 
TLC LISP - “LISP-machine’-like, 
all RAM, classes, turtle graphics 
8087. CP/M-86, MSDOS $235 


EDITORS FOR PROGRAMMING 


BRIEF Programmer's Editor - undo, 
windows, reconfigurable, macro 
programs, powerful. PCDOS $195 


VEDIT - well liked, macros, buffers, 
CPM-80-86, MSDOS, PCDOS $119 


MACINTOSH 


We evaluate, carry every available 
programmers product. Ask fora 





ALL PRODUCTS - We carry 700 products 
for MSDOS, CP/M 86, CP/M 80. Mac- 
intosh and key products for other 
micros. 


THE PROGRAMMER’S SHOP™ 


Visa 





C LANGUAGE 


C Terp Interpreter by Gimbel, 
fullK&R, .OBJ and ASM interface, 


FORTRAN LANGUAGE 


MacFORTRAN - full ’77, ‘66 option, 
toolbox, debugger, 128K or 512K, 
ASN-out option MAC $375 


RM/Fortran - Full’77, BIG ARRAYS, 
8087, optimize, back trace, 
debug. MSDOS $525 


Ask about Microsoft, Supersoft, others. 


OTHER LANGUAGES 


ASSEMBLER - ask about FASM-86 
($95), ED/ASM ($95) - both are 

fast, compatible, or MASM 

($125), improvements. 


BetterBASIC all RAM, modules, 
structure. BASICA-like PCDOS $185 


SNOBOL 4 + - great for strings, 
patterns. CPM86, MSDOS $ 85 


SUPPORT PRODUCTS 


BASIC DEVELOPMENT SYSTEM- 
(BDS) for BASICA; Adds Renum, 
crossref, compress. PCDOS $115 


CODESIFTER - Execution PRO- 
FILER. Spot bottlenecks. Symbolic, 
automatic. PCDOS $109 
FASTER C - Lattice users eliminate 
Link step. Normal 27 seconds. Faster 
C in 13 sec. MSDOS §$ 95 


PLINK-86 for Overlays, mostlang.., 
segment control. MSDOS $325 


PS MAKE by Unipress - Interactive or 


8087. MSDOS $275 
INSTANT C - Interactive develop- 
ment - Edit, Source Debug, run. 
EdittoRun-3Secs. MSDOS $445 
“INTRODUCING C’”- Interactive _ 

C to learn fast. 500 page tutorial, 
examples, graphics. PCDOS §$ 95 
MEGAMAX C - native Macintosh 

has fast compile, tight code, K&R. 
toolkit, .OBJ, DisASM MAC $275 


Wizard C - Lattice C compatible, full 
sys. III syntax, lint included, fast, 
lib. source. MSDOS $450 


APPLICATION TOOLKIT by Shaw - 
Complete: ISAM, Screen, Overlay 
mgnt, report gen, Strings, String 
math. Source. CPM, MSDOS $475 


COMMUNICATIONS by Greenleaf 
($159) or Software horizons ($139) 
includes Modem, interrupts, etc. 
Source. Ask for Greenleaf demo. 


C SHARP Realtime Toolkit - well 
supported, thorough, portable, ob- 
jects, state sys. Source MANY $600 


C Index + - fullB+Tree, variable 
length fields. Source, no 
royalties. MSDOS $369 


PC/LINT - Small, big model. Batch 
option. Lattice, C86 MSDOS $ 95 


——_ 





packet describing OVER 20 batch. Full MAKE. MSDOS $129 
PRODUCTS 
apes OUR ‘ OUR 
“C” LANGUAGE Sis-1: EDITORS Programming LANGUAGE LIBRARIES FORTRAN RUNS ON. PRICE 
MSDOS (86-8087, reliable call OUR GRAPHICS: Halo for Turbo Postal MSDOS 95 MSFORTRAN-86-Impr. MSDOS 239 
Instant C - Inter. fast, full 445 RUNS ON PRICE GRAPHMATIC-3D, FTN, PAS  PCDOS 125 DRFortran-86- full'77 8086 249 
Lattice C - the standard call BRIEF- Intuitive, flexible  PCDOS 195 MuItiHALO-fast, full-alllang.  PCDOS 220 — PolyFORTRAN-XREF, Xtract PCDOS 165 
feel ; a ee i C Screen with source 86/80 75 le MGNT: BTrieve-all lang. MSD0S 24 
illiams - debugger, fas Epsilon - like EMACS PCDOS 195 Index + - source, no roya Dien cu 
baled aa oe a ‘as on FINALWORD-for manuals 86/80 215 — Sau no royal a - On a aaah se 
- ECOFIUS U - Taster, PMATE - powerful 8086 185 dBC ISAM by Lattice : 14 
BDS C - solid value 125 VEDIT-full liked 86/80 119 dBVISTA-"Network” Structure MSDOS 465 Advanced Trace G6-symbolic POEMS te 
MACINTOSH: Hippo II 379 XTC - multitasking PCDOS 95  PHACT-upunderUNIX, addons MSDOS 225 Aton pebugger for Lattice PCDOS 395 
- opt r, full 275 C1 ili : MSDOS 129 gg 
Megamax optimizer, ui OTHER: C Utilities by Essential C Helper: DIFF. xref. more 86/80 135 
Consulair’s MAC C; toolkit 399 COBOL Greenleaf - 200 + MSDOS 159 @QpESMITH-86 - debug PCDOS 129 
Compare, evaluate, consider other Cs SOFT Horizons - Blocks |_ PCDOS 139 MacASM - full. fast, tools MAC 115 
: Dig. Res-decent MSDOS 525 SCREEN: CURSES by Lattice PCDOS 125 MBP Cobol-86 - fast 8086 885 
EES RUNS ON Macintosh COBOL - Full MAC 1850 MetaWINDOW- icons, clip PCDOS 139 MicroProiog -improved MSDOS 185 
BASCOM-86-MicroSoft 8086 279 MBP-Lev I, native, screen MSDOS 885 PANEL - many lang. term MSDOS 249 Micro: SuDMATH - FORTRAN full 86/80 250 
CB-86 - DRI CPM86 419 Micro Focus Prof. - Full PCDOS call ProScreen - windows, source PCDOS 415 Microsoft MASM-86 MSDOS 125 
MSDOS 32 Microsoft-Lev ll, noroyal MSDOS 500 Turbo V - Greenleaf C. fast PCDOS 159 Multilink - Miltitaskin PCDOS 265 
Data Manager-full source 325 MSDOS 695 Wi forC MSOOS 175 ultilink - Miltitasking 
CADSAM-Full Btree, source MSDOS 150 Ryan McFarland - portable indows tor PC FORTH - wellliked — MSDOS 219 
InfoREPORTER-multifile PCDOS 115 Ask about program generators. Pfinish - Profile by routine MSDOS 345 
Prof. Basic-Inter., debug PCDOS 89 PFIX-86 Debugger MSDOS 169 
0 , debug 
TOR PCDOS 115 PL1-86 8086 495 
SE WIG -ANS OS . Polylibrarian - thorough MSDOS 95 
UE Beare ats. =: Pee Call for a catalog, literature, and solid value PL AIKE Trane oa 
Ask about ISAM, other addons for BASIC TRACE86 debugger ASM MSDOS 115 
ZAP Communications-VT100, : 
SERVICE oa ca) TEK 4010, full xfer PCDOS 6 


Note: All prices subject to change without notice 
Mention this ad. Some prices are specials 

Ask about COD and POs. All formats available 
UNIX is atrademark of Bell Labs. 


128-D Rockland Street, Hanover, MA 02339 


Mass: 800-442-8070 or 617-826-7531 | MasterCard = 8517 
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c Ches f (Listing Continued, text begins on page 20) 


Listing Three 
Z£os. 3 

e9ss 

a0s.°% 

oa | 

32: 3; description: 
gas 

sae: 

So28 3 

363: : 

of i 2 

go8:3 

B93: ; 

40: ; notes: 
ales 

423: 

437% 3 

44: ; 

45: PSEG 
46: PUBLIC 
47: DOS PROC 
48: PUSH 
49: MOV 
50: MOV 
Sl: 

Jat PUSH 
se PUSH 
54: PUSH 
aos PUSH 
56: PUSH 
ars PUSH 
58: PUSH 
59: MOV 
60: MOV 
61: MOV 
62: MOV 
63: MOV 
64: MOV 
65: MOV 
66: MOV 
67: PUSH 
68: INT 
69: POP 
70: MOV 
Tks MOV 
72: MOV 
t3t MOV 
74: MOV 
Tae MOV 
763 MOV 
1 MOV 
78: MOV 
79: MOV 
80: POP 
81: POP 
82: POP 
83: POP 
84; POP 
85: POP 
86: POP 
36 


status = dos( regsp ); 
int Stiga |<: /* returned status register ey, 
REGS *regp : /* pointer to register struct */ 


This function is a more useful version of the bdos() 
function provided with the lattice C compiler. It 
Saves the existing machine state, replaces the 
contents of all registers except CS & SS from the 
structure pointed to by regp, does an int 21, loads 
the registers back into the structure, restores the 
machine state and returns. 


This function will only work with the SMALL model, since 
it assumes a 16 bit pointer. The stack frame is 
non-standard too (ie the BP holds the structure pointer 
arg rather than the frame pointer). 


DOS 
NEAR 


BP ¢ Save the old stack frame. 
BP SP . 
BP, [{BP+OFF ] ; BP = pointer to register structure. 


BX ; Save the current machine state. No 
CX point in saving AX because it's 

DX going to be used for the return 

SI value. 

DI 

ES 

DS 


we we we 


AX,SS:[BP].AX_REG 
BX,SS:[BP].BX_REG 
CX,SS:[BP].CX_REG 
DX,SS:[BP].DX_REG 
SI,SS:[BP].SI_REG 
DI,SS:[BP].DI_REG 
ES,SS:[BP].ES REG 
DS,SS:[BP].DS_REG 


Set up a new machine state 
using the contents of the 
REGS structure. Don't modify 
the’ SS or CS registers. 


we @e we we 


BP ; Make the DOS call. Save the BP 
21H ; out of irrational paranoia. 
BP 


SS:[BP].AX_REG,AX ; Now update the original structure 
SS:[BP].BX_REG, BX ; to reflect the return values from 
SS:[BP].CX_REG,CX ; the dos call. 

SS:[BP].DX_REG, Dx 

SS:[BP].SI_REG,SI 

SS:[BP].DI_REG,DI 

SS:[BP].ES_REG,ES 

SS:[BP].CS_REG,CS 

SS:[BP].DS_REG,DS 

SS:[BP].SS_REG,SS 


DS 

ES 

= ; Restore the previous machine state 
DX 

CX 

BX 
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87: LAHF ; Return the flags: 

88: MOV AL, AH : Move flags to LSB 

89: XOR AH, AH ; Clear high bytes 

90: POP BP ; Restore the previous stack frame's 
91; RET ; frame pointer and return. 

92: DOS ENDP 

933 3 ee em 
94: ; 

95: 3; name gregs -- Initialize a REGS structure to the current 
SG:-3 register contents. 

aye 5 

98: 3; synopsis: #include <mydos.h> 

99.5.-3 
100: ; gregs( regp ) 
BL 3-4 REGS *regp : /* pointer to register struct */ 
Lee s..: 
103: ; description: This function is used before before calling dos(). 
104: ; 
105%. 4 notes s This function will only work with the SMALL model. 
163.4 
L072 PUBLIC GREGS 
108: GREGS PROC NEAR 
109: PUSH BP - Save the old stack frame. 
Lis MOV Bear : 
lll: MOV BP, [BP+O0FF ] - BP = pointer to register structure. 
Liz: MOV SS:[BP].AX_REG,AX ; Initialize the structure pointed 
Liat MOV SS:{[BP].BX_REG,BX ; to by bp. 
LA: MOV 58:3 (BP ].,CX_ REG, Cx 
Li5< MOV SS:[BP].DX_REG, DX 
116: MOV $S+(BP].SE-REG SL 
L117; MOV SSsfSP}. DI REG, D2 
118: MOV SS:[BP].ES_REG,ES 
119: MOV SS:[BP4.CS REG,CS 
£20: MOV SS:({BP].DS_REG,DS 
121% MOV SS:[BP].SS_REG,SS 
L222 POP BP - Restore the previous stack 
123% RET ; frame and return. 
124: GREGS ENDP 
£253 ENDPS Fi 
126: END End Listing Three 
Listing Four 

1: #include <stdio.h> 

24 f* 

a:  * PTEXT.C: Multi-column print utility 

4; * 

at. OF Copyright (c) 1985 Allen I. Holub, all rights reserved. 

6: = This program may be reproduced for personal, non-profit use only 

aro * 

a = Bugs and Features: 

a: .* 

is. 1) Pr line assumes that the output device supports backspace 
he 7 ('\b' == *H ). This is only a problem when the source 
| has underlined text implemented as: 

tov. oS texttexttext\r. 

Lae We can't just ouput a '\r' in this case because we may 

tak = not be in the leftmost column. A \r should get us to the 
L6s<2F left edge of the current column. 

Pie 
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(Continued on next page) 
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C C. hes f (Listing Continued, text begins on page 20) 


Listing Four 
bos.) .? 2) When printing multi-column stuff. If a line is truncated it 
Se will run into the column to its right. That is, there is no 
eee seperator between columns other than the whitespace needed 
to pad the column out to a particular width. If no padding 
eas. is necessary (ie. the lines have been truncated), then the 
ea eri columns will run together. 
Lag) * 
eee 3) When an ESC is found, the escape and the next three characters 
Zoe take up no space in the output. This lets us print out the 
Bee * various SGR commands without messing up the column width. 
Zo: * 
L922 ¥ 4) Strange things happen to an IBM screen when the leftmost 
Seen character on a line is printed with underline. To compensate 
0 for this, a single blank is printed as the left-most 
ee at character on every line if IBM is #defined. 
334.0 %/ 
34: #define ESC Oxlb 
35: #define IBM 1 
363. [#224 —4- 4 ne ne ee nee nt * / 
37: ptext(linec, linev, outfile, numcols, colwidth, numrows) 
38: int linec, numcols, colwidth; 
39: char **¥linev; 
40: FILE *outfile; 
41: int numrows; 
Bee 
43: fr Print out the array of strings "linev" which consists of 
44; * linec entrys. Output is sent to "“outfile" formated as 
45: * follows: 
46: * 
47: * "numcols" : number of columns 
48: . "colwidth" : width of a column in characters. Any text 
49: 1 longer than colwidth is truncated off. 
50: : "numrows" : columns are numrows long. The left-most 
91% * column is printed in its entirety 
08 * first then the next column in its 
Ja ¥ entirety, and so on. 
54: * / 
Bon register int i | 
56: register char **lineend, **line, **nextline ;: 
S78 lineend = &linev[linec-1]; /* Last linev entry to print * / 
ao for( j = numrows ; --j >= 0; ) 
J % 
60: #ifdef IBM 
61: puteG: +. <4; opt £t1 6, -)% 
62: #endif 
aa for( line = linev++; line <= lineend; line = nextline) 

: { 
65: nextline = line + numrows; 
66: [* Print the line. Don't pad the rightmost =? 
67: /* column. a 
68: 
69: pr_line( *line, outfile, colwidth, 
70: nextline <= lineend); 
Th: } 
Pee fpursC"\n"':, outfile)> 
ra } 
FHS. 3} 

(Continued on page 40) 
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RIEF 





‘‘BRIEF Is The Best Editor I Have Ever 
Used. I Switched. I Use BRIEF Regularly.” 





Choosing the right program editor is an extremely 
important decision. After all, more time is spent with 
your program editor than with any other category of 
software. A good program editor helps to stimulate 
creativity and produce programs of superior design. 
A poor program editor, on the other hand, can be 
worse than none at all. It can slow you down, get in 
your way, and make even the simplest tasks difficult. 


BRIEF - PROGRAM EDITING YOUR WAY 


Every programmer has an individual style that 
makes their work unique. Most program editors com- 
promise that style by forcing the programmer to con- 
form to their methods. Not so with BRIEF. 


BRIEF’s most powerful feature is its ability to 
conform to your way of programming. BRIEF can be 
easily tailored/customized to your individual 
preferences. For example, keyboard reassignment 
allows the keyboard to be used in whatever way you 
prefer. Keystroke macros allow long sequences of 
editor directives to be repeated by pressing a single 
key. Plus you can simultaneously work with 
numerous program and data files, and configure 


many windows to control BRIEF’s visual presentation. 


75% OF THE EXPERTS WHO 


HAVE TRIED BRIEF SWITCHED! 


(Call For Details) 
make.c 

int handle = @; 

Main (argc, argvll 


jint argc; 





———{—>— fsa.h makefile.h 
[Ninclude "..\include\etype.h® /#* : 
| se makefile.h: 
typedef struct st 
\ me 

ae 

ae 


short action, 


This is the definitions fil 
Hopefully, it won’t 


Steve McMahon“ 


“A BONA FIDE UNDO” Steve McMahon - BYTE 
REVIEW “BUILD YOUR DREAM EDITOR” MARCH 1985 


Here are Steve McMahon's exact words: “...BRIEF 
implements a true undo facility, by default allowing 
command-by-command recovery from the last 30 
commands...The number of commands you want to 
be able to undo can be changed.’ (up to 300) “Only 
with BRIEF, though, was it possible to undo a macro 
that produced 4000 words of text with a single 
keystroke.” 


EVERY FEATURE YOU WANT 
BRIEF supports practically every feature you've ever 
seen, and some you probably haven't thought of yet. 


e Edit Multiple Large e Repeat Keystroke 
Files Sequences 


e Windows (Tiled & e 15 Minute Learning 


Pop-up) e Reconfigurable 
e Unlimited File Size Keyboard 


e Full UNDO (N Times) ¢ Online Help 
¢ True Automatic Indent e Search for “Regular 


for C Expressions” 
e Exit to DOS Inside e Mnemonic Key 
BRIEF Assignments 
¢ Compile programs ¢ Horizontal Scrolling 
inside BRIEF ¢ Comprehensive Error ° 
e Uses All Available Recovery 
Memory e And ... a Complete, 
¢ Intuitive Commands Compiled, Programmable 
2 ‘Tutorial and Readable 


Macro Language. 





A TYPICAL BRIEF SCREEN 


Notice there are three windows on the 
screen simultaneously and each one is 
viewing a different file. The mainline of a C 
program is visible in the uppermost window; 
the programmer has run a syntax checking 
macro which found a mismatched open 








be unreasonab 





state; | that have been written. parenthesis in the arguments to the 
S| FSA MAIN mainline. The other two windows show 
Fsa fsal](8] = {7% Alphanum Co|typedef struct cmd_struct header files containing information crucial to 
/%* State @. */ @. 2 1@ t chan xond_ text: the design of the program. BRIEF can have 
/* State 1. #7 16, @, 18 2 an unlimited number of windows and files 
ee : = g, g, tl zageet cds ynuct wnext_cmd, accessed simultaneously. 
7* State 4. #/ @, 4, # a eee 











Mismatched open parenthesis. Line: il 


Col: 17 









2:17 pm 





BRIEF’S ONLY LIMITATIONS ARE THE ONES YOU SET 
BRIEF’s capabilities are limited only by your imagination. Once you've 


used BRIEF, you will NEVER want another editor. 
TRY BRIEF RISK FREE FOR 30 DAYS! 


Order BRIEF ($195) and try it for 30 days with a full money- 


back guarantee. CALL 800-821-2492 


AVAILABILITY: IBM-PC and Compatibles, 
AT, & TANDY 2000 





335-D Washington St., Norwell, MA 02061 (617) 659-1571 


*Steve McMahon's quote courtesy Suntype Publishing Systems. BYTE review by Mr. McMahon may be found in BYTE Magazine March 1985. 
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C Chest 


Listing Four 


75:3 


763 
77: 
78: FILE 
79: int 
80: { 
81; 

82: 

83: 

84: 

85: 

86: 

87: 


88: 


89; 
90: 
91; 
92: 


93: 
94; 
95: 
96: 


97: 
98: 
99; 
100: 
101; 


102: 
103: 
104: 
105: 
106: 
107: 
108: 


109: 
110: 
lit: 
¥12:3 
113s 
114: 
113°: 
116; 
Es? 
118; 
119: 
ra: 
121: 


L222 
123% 
124: 


T2532 
126: 
L273 
128: 
129: 
130: 
131: 


40 


(Listing Continued, text begins on page 20) 


Static pr_line( str, stream, width, padded ) 
register char 


*str; 
*stream; 
width, padded; 


Print out "str" into "stream" padding it to "width" 
columns wide. Non-printing characters and 3 printing characters 
immediatly following an ESC are not counted as having printed. 
'\n' characters are treated as line teminators but are not 
printed, If "padded" is 0 then no padding is done, though the 
line will still be truncated if it's too long. 


/ 


H+ H+ HH HH 


int col 0; 


&& 


et Sete. we "tq" > 
break; 


while( col < width *str ) 
{ 


"\r’ ) 


else if( *str == 


/* Back up to the left edge of the current column 
* / 


while( col. >..0°5 

{ 

--col; 
putc('\b' , stream); 


} 
Str++; 
else if( *str /* expand tabs */ 


str++ 
col++ 
putc( a 


Stream ); 


while( (col Z% 8) 
{ 


&& col < width) 


’ t 


putc( ; 
col++; 


stream ); 


else 


if( *str == ESC ) 
{ 
putc( *str++ , 
$20 Pee) 
break; 


stream ); 


putc( *str++ , 
of (str) 
break; 


stream ); 


putc( *str++ , 
LEC T¥atr 45 
break; 


Stream ); 


else if (*str == 


--col ; 


rh hy 
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132: else if( *str >= ' ' ) 


139: $4801 = 

134% putc( *str++ , stream ); 

1353 } 

136: } 

L357: if (padded) 

138: while( col++ < width ) 

139: pitc( ' * .. stream ); 

140: } 

End Listing Four 

Listing Five 

1: /* Example of how to get and restore the MSDOS Disk Transfer address 

2: * using the dos() and gregs() functions defined in listing 5 

33°. */ | 

4: #include <mydos.h> 

5: #define SETDTA Oxla 

6: #define GETDTA Ox2f 

7: main() 

Se. 4 

3% static FILE_INFO info; 

10: static REGS oregs, nregs; 

ll: gregs( &oregs ); /* Get the old DTA. It will be put */ 
12: oregs.h.ah = GETDTA; /* into ES:BX of oregs. a 
13: dos( &oregs ); 
14: gregs( &nregs ); 
15: nregs.x.dx = (word) &info; /* Change the Disk Transfer Addr */ 
16: nregs.h.ah = SETDTA 3 /* to point at info structure * / 
a dos( &nregs ); 
] 8 * /* a e e * / 
19: oregs.x.ds = oregs.x.es; /* Now put the DTA back. You have */ 
20: oregs.x.dx = oregs.x.bx; /® to copy ES:BX into DS:DX first. */ 
212 nregs.h.ah = SETDTA ; 
22: dos( &oregs ); 
Za% } 

End Listings 
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Build a Custom PC or Clone 


by Jim Kronman 


42 


have owned an 8-bit S-100 micro- 
| compu since 1978. Old habits 

are hard to kick, so I set about as- 
sembling a PC-compatible computer 
the same way I built my S-100 sys- 
tem. I individually selected each 
component of the system to suit my 
specific needs. I now have a PC XT 
work-alike that is totally “IBM com- 
patible,” costs substantially less than 
the closest off-the-shelf equivalent, 
and fits my requirements exactly. 

My approach may not be for every- 
one. I am pleased with my completed 
project, but you should consider the 
pros and cons before taking the 
plunge yourself. Before going into the 
advantages of rolling your own PC, 
I'll point out some of the drawbacks 
you should consider. 


with microcomputer hardware or are 
timid when handling equipment cost- 
ing, in the aggregate, up to several 
thousand dollars. When you put 
Manufacturer A’s board and Manu- 
facturer B’s board into your comput- 
er, you alone are responsible for de- 
termining that the boards are compa- 
tible both with each other and with 
the PC itself. The vendors and manu- 
facturers usually will try to help if 
you have a problem, but they may 
never have encountered exactly the 
configuration you have assembled 
and therefore may be unable to deter- 
mine the cause of your problem. 
Now that you have received fair 
warning of some of the potential pit- 
falls, I'll shamelessly promote the ad- 
vantages of building your own PC. 





Careful shopping, gentle persuasion with vise grips 
and a lot of patience yield an XT work-alike 
at a PC price. 


lg 


You will need patience. If you 
must have a computer tomorrow, go 
buy something off the shelf of your 
local computer store. I ordered pieces 
from five separate mailorder suppli- 
ers (including IBM), and it was over 
five weeks from the time I placed the 
orders by telephone until I first boot- 
ed the system. At that point, I was 
still missing a vital element, but more 
on that subject later. 

Do not attempt to assemble your 
own PC if you are not experienced 


ila gn eee oa a Si belies 
Jim Kronman, 6085 Venice Blvd. 
No. 16, Los Angeles, CA 90034 (213) 
I58-328] 


You can save a bundle of money 
when you compare your homegrown 
computer to one with the same func- 
tionality in a store: for the same 
amount of money, you can get a lot 
more capability. With my project 
now complete, I realize, too, that 
there are other benefits I had not an- 
ticipated when I began. 

An obvious reason to undertake this 
adventure is to assemble a system ex- 
actly suited to your needs. One of my 
prime requirements was to have a Se- 
lectric style keyboard, which IBM 
does not offer with the PC. I did not 
want to buy the standard IBM PC be- 
cause I would end up throwing away a 
perfectly good (if poorly laid out) key- 
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board and buying a replacement. (As 
far as I know, IBM will not sell the PC 
System Unit without a keyboard. ) 

I purchased the Keytronic KB5151 
deluxe keyboard with a Selectric 
style layout and separate numeric 
and arrow keypads; it also has the 
function keys across the top of the 
keyboard so they will align with the 
function key legends in row 25 of the 
display in many application pro- 
grams. My one criticism of the Key- 
tronic design was that the “touch” 
was too soft; sometimes the slightest 
tap would cause a character to ap- 
pear on the screen. This problem was 
easy to remedy. I carefully took each 
keytop off of the keyboard, stretched 
the spring under the keytop to about 
0.8 inches, and then replaced the key- 
top. Do one key at a time and you 
should have no problems with this 
slight modification; it’s well worth 
the time! 

I had decided that I wanted the ca- 
pability of a hard disk and that I 
wanted it internal to the computer. I 
also did not like the crowded arrange- 
ment in the eight-slot PC XT or the XT 
clones. These considerations and oth- 
ers led me to opt for a custom assem- 
bly with a five-slot PC motherboard. 
I’m sure you can think of plenty of 
your own reasons to customize, too. 

While my project was in progress, I 
had occasion to help a friend with an 
IBM PC that had a failed power sup- 
ply. What I have come to call the 
“$290 Fuse Syndrome” is a strong 
argument to buy as few components 
as possible from IBM. Big Blue’s war- 
ranty policy (which I have seen re- 
viewers praise in several magazine 
articles) is to replace defective com- 
ponents on the spot and without ques- 
tion. That’s great while you are with- 
in the warranty period and the tab is 
on Blue, but unfortunately the policy 
continues and is mandatory after the 
warranty expires and you are paying 
the bill. If you try to obtain a sche- 
matic or other service information for 
an IBM PC component that is desig- 
nated a FRU (Field Replaceable 
Unit), you will encounter as firm a 
stonewall from IBM as you will ever 
want to see. Even if you figure out 
who made the component for IBM, 
you can’t get any help because IBM 
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has its vendors contractually bound 
to stony silence as well. 

The $290 Fuse Syndrome is so 
named because inside of each IBM 
power supply is a standard slow-blow 
radio-type fuse—in a fuse holder! If 
this fuse blows (or even simply fails), 
IBM’s policy is that the supply is ter- 
minally (if you'll pardon the expres- 
sion) ill and must be replaced. A PC 
XT (130 watts) power supply costs 
$290 when ordered from IBM; as I 
write this article, the going rate for a 
clone replacement seems to be around 


$170. By purchasing your power sup- 
ply, plug-in boards, disk drives, and so 
on from other sources, you can obtain 
servicing information in most cases. If 
the availability of servicing informa- 
tion is vital to you, check with each 
manufacturer before you buy. 

My original plan was to purchase a 
PC motherboard, the case, and a 130 
watt power supply from IBM. This 
would have given the machine the ap- 
pearance of being “true Blue.” IBM 
was one step ahead of me: I was un- 
able to obtain the entire case from 


































NEW Ver. 3.1 


(applies toward purchase) 


Full source available. 
No royalties. 


Advanced 
Screen Management 
made easy 


Now a professional software tool from 
Creative Solutions. 


WINDOWS FOR C* 


More than a window display system, 
WINDOWS FOR C is a video tool kit for all 
screen management tasks. 


@ Pop-up menus and help files 

@ Unlimited files and windows 

@ Instant screen changes 

@ Complete color control 

@ Horizontal and vertical scrolling 
@ Word wrap 

@ Highlighting 

= Auto memory management 


@ Plus a library of over 50 
building block subroutines 


Designed for portability. 


Easy to learn, easy to use. 


Once you've tried WINDOWS FOR C, 
you’ ll wonder how you ever managed without it. 





Full support for IBM PC/XT/AT and compatibles, plus interfaces for non-IBM computers; 
Lattice C, CI-C86, Mark Wm. C, Aztec C, Microsoft C, DeSmet C (PC/MSDOS), 





Enhanced portability. | 
Topview compatible. | - 
WINDOWS FOR C$195) 2% 
(specify compiler & version) <q] § 


Demo disk and manual $ 30 Peo | Master Card & Visa Accepted 


oe 3 VT residents add 4% tax. 


© Creative Solutions 


*) | 21 Elm Ave., Box T7, 
_ Richford, VT 05476 


802-848-7738 


Shipping $2.50 
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IBM, even though all the pieces are 
listed in the IBM PC Service Man- 
ual’s illustrated parts breakdown and 
the Greencastle Parts Depot accept- 
ed my order. I did buy the power sup- 
ply, which has given me no problems 
to date (although the first supply sent 
to me was dead on arrival), but I re- 
gret not saving the $100 by buying a 
supply from a third party. 

My inability to obtain the case 
from IBM was frustrating; after the 
IBM Parts Center accepted my order 
for all of the pieces, it simply failed to 
deliver all of them. I never received 
notification that the entire order 
would not be filled. As the weeks 
dragged by, I assembled all of the 
components of the by now functional 
computer on a 24 X 27-inch piece of 
particle board. When I finally found 
out what was happening with my or- 
der from IBM, the Parts Depot at 
least let me return for credit the 
pieces of the case I had obtained and 
could not use. 

I found a clone chassis made in 
Taiwan for about half the price of the 
IBM parts, and after a small amount 
of persuasion with vise grip pliers to 
straighten out a bracket, everything 
fit fine. The case is identical in ap- 
pearance to the IBM from the front, 
except for the absence of the famous 
logo, and the back panel has a variety 
of cutouts adaptable to various hard- 
ware configurations. 

One piece of the system that had to 
be genuine IBM was the mother- 
board, which contains the IBM ROM 
BIOS, thus assuring total PC com- 
patibility. Although some of the 
clone boards might be close to 100% 
compatible, the difference in price 
was not worth the risk. If you have 
reliable information about a specific 
non-IBM motherboard that meets 
your needs, then go for it! 

One other specific piece of hard- 
ware made the choice of the PC (rath- 
er than XT) motherboard attractive: 
Maynard Electronics’ “Sandstar Se- 
ries” WS-2 disk controller board sup- 
ports up to four floppy disk drives and 
two 10 Mb hard disks and takes up 
only a single slot. An added advantage 
of this configuration is that the May- 
nard hard disk software driver is in a 
PROM that is installed on the main 
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circuit board, occupying address 
space in the FOOOOh segment, while 
the IBM XT controller is a separate 
board and has its driver in the middle 
of the CO000h segment. Thus, by not 
using the XT controller or any other 
board with ROM code in the C0000h 
segment, you make available 64K of 
memory space along with the DO000h 
and E0000h segments, which allows 
you to install a 192K RAM disk with- 
out using any of the 640K available to 
DOS. Use caution in dealing with the 
C0000h through E0000h segments; 
according to the IBM Technical Ref- 
erence Manual (page 2-11), plug-in 
boards can use the area from C2000h 
to F4000h for software drivers that 
the ROM BIOS will recognize at 
power-on. 

When you do not buy the System 
Unit from IBM, you do not receive 
the IBM PC Guide to Operations 
manual, the BASIC manual, or the 
IBM Diagnostic Disk. You may pur- 
chase these items from IBM if you 
need them. If you purchase the IBM 
Technical Reference Manual, you 
will not need the Guide to Opera- 
tions. (If you need this Guide to Op- 
erations, you probably shouldn’t be 
assembling your own computer!) I 
highly recommend that you purchase 
the Technical Reference Manual; it 
is the definitive source of information 
on the ROM BIOS function calls, con- 
taining the source code for the entire 
ROM BIOS. 

After I completed my project (and 
after my friend purchased a replace- 
ment power supply), I discovered 
that Howard W. Sams publishes a 
‘““Computerfact”? package for the 
IBM PC. It costs $39.95 and includes 
schematics, circuit board photos with 
component identifications and trou- 
ble-shooting instructions. The pack- 
age covers the PC motherboard, 
power supply, keyboard, display 
adapters, floppy disk controller, and 
a few other optional cards. 

You must also purchase an operat- 
ing system separately. The various 
choices are PCDOS 2.1 or 3.0 from 
IBM and Digital Research’s CP/M- 
86, Concurrent CP/M v3.1, or Con- 
current DOS v3.2. By far the most 
software is available for PCDOS. Be- 
cause v3.0 seems to offer the single 


user little advantage over v2.1, I selec- 
ted PCDOS 2.1. The choice is yours. 
You can use more than one operating 
system (but not simultaneously). 

That is about all there is to tell 
about my experiences. Not only would 
I do it again this way if I had to (less 
the mistakes, of course), I would not 
consider doing it any other way! What 
follows is a summary of my advice and 
some useful tabulations of informa- 
tion, components, and sources. 

If you intend to assemble your own 
PC: 


(1) Be confident of your skills and 
knowledge in microcomputers. 

(2) Be prepared to wait; this isn’t a 
project for the impatient. 

(3) Select your components careful- 
ly; make sure each item is compati- 
ble with the others. 

(4) Understand each vendor’s return 
policy before you order, just in case. 
(5) Select your software with as 
much or more care as your hard- 
ware. 

(6) If you have a specific software 
application in mind, make sure the 
hardware you select is compatible. 


The components you will need (as 
a minimum) are: 


(1) Motherboard, with CPU, ROM 
BIOS, memory, keyboard interface, 
and support circuits 

(2) Power supply, 62 to 130 watts 
(130 watts recommended ) 

(3) Display adapter card 

(4) Monitor compatible with display 
adapter 

(5) Disk controller card (possibly a 
second card for hard disk) 

(6) Case 

(7) Keyboard 

(8) Floppy disk drive, 5%-inch 
DSDD, 48 tpi, PC-compatible 


Optional components include (but 
are not limited to): 


(1) Multifunction card (additional 
memory, battery run clock, serial 
and parallel ports, game port, etc.) 
(2) MODEM card 

(3) Math coprocessor chip (8087) 
(4) Coprocessor board (Z80 CP/M- 
80, Apple, 10286, etc. ) 
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The following items are available 
from IBM: 


(1) PC motherboard with 64K mem- 
ory installed, P/N 8654213, $640.00 
(2) PC XT motherboard with 128K 
memory installed, P/N 8529254, 
$750.00 

(3) Speaker with mounting bracket, 
P/N 8529143, $8.15 

(4) Guide To Operations manual 

(5) Technical Reference Manual, P/ 
N 1502234 

(6) BASIC reference manual, P/N 
6025010 

(7) PCDOS 2.1, P/N 6024120 

(8) PC Diagnostic Disk, P/N 
1502212 


All of the above except for the 
motherboards and speaker should be 
available through the IBM Product 
Centers or other retail outlets (Sears 
Business Centers are usually a good 
place to check). The replacement 
parts (motherboard, etc.) are avail- 
able from the IBM Parts Depot in 
Greencastle, IN. It is best to deal by 
telephone: (317) 658-2022. The ad- 
dress is PO. Box 505, Greencastle, 
IN 46135. The hardware prices may 
change; they are included here for 
reference only. 

For the other pieces that you will 
need for your system, look through the 
ads in this magazine, The Computer 
Shopper, and Byte. Many firms sell 
PC clone cases, power supplies, key- 
boards, and so on. I have even found 
bargains at surplus companies; a firm 
in the Los Angeles area recently had 
surplus Keytronics keyboards manu- 
factured with special legends on the 
keys for just $35! 

Happy hunting and happy cloning. 
I hope this article encourages fellow 
computer hobbyists to explore the PC 
bus in the same spirit as the S-100 
bus. I have found the experience to be 
well worth the effort. 


DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 192. 
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How to go 


om 
UNIX to DOS 


without. 


compromising 


your 
standards. 


It’s easy. Just get an industry standard file access 
method that works on both. 

C-ISAM™ from RDS. 

It’s been the UNIX” standard for years (used in 
more UNIX languages and programs than any other 
access method), and it’s fast becoming the standard 
for DOS. Why? 

Because of the way it works. Its B+ Tree index- 
ing structure offers unlimited indexes. There's also 
automatic or manual record locking and optional 
transaction audit trails. Plus index compression to 
save disk space and cut access times. 

How can we be so sure C-ISAM works so well? 

We use it ourselves. It’s a part of INFORMIX; 
INFORMILX-SQL and File-it!™ our best selling data- 
base management programs. 

For an information packet, call (415) 424-1300. 
Or write RDS, 2471 East Bayshore Road, Palo Alto, 
CA 94803. 

You'll see why anything less than C-ISAM is just 
a compromise. 


oN 


&) 


RELATIONAL DATABASE SYSTEMS, INC. 


© 1985, Relational Database Systems, Inc. UNIX is a trademark of AT&T Bell Laboratories. INFORMIX is 
a registered trademark and RDS, C-ISAM and File-It! are trademarks of Relational Database Systems, Inc. 
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The Ultimate Parallel Print Soooler 





by Don Rindsberg 
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Don Rindsberg has come up with a 
printer spooler design incorporating 
low-cost 6665 (64K) dynamic RAM 
chips. The result—a 60K print spool- 
er that you can build for about a hun- 
dred dollars. 


parallel printer does its thing, here 

is a project that will allow you to 
print and compute at the same time. It 
is a print spooler that provides a whop- 
ping 60K of buffering. The spooler, 
designed to stand alone, will interface 
almost any parallel printer port. 

The project incorporates ‘“‘software 
refresh” of the dynamic RAM memo- 
ry—a concept little publicized, to my 
knowledge, except in Motorola’s appli- 
cation literature. By using software re- 
fresh of RAM, you can eliminate a 
number of integrated circuits from the 
design of the spooler. The refresh cycle 


f you are tired of waiting while your 


I built this spooler to interface my 
Apple II computer to an Epson paral- 
lel printer. However, it should be eas- 
ily adaptable to virtually any com- 
puter with a parallel printer port and 
any parallel printer. The 60K of buff- 
ering holds at least 12 pages of solid, 
single-spaced text. In the graphics 
mode, an entire screen is dumped to 
the spooler in a couple of seconds. 


The Hardware 

The 6809 microprocessor, which is 
now available for about $12, is ideal 
for our software-refreshed memory 
system: its internal clock can provide 
the time-critical signals to the dynam- 
ic memory without the use of addi- 
tional clocks or delay lines. The 6809 
(not the 6809E) has its own on-chip 
clock generator and requires only a 
crystal in the 3.5 to 4.0 MHz range; a 
low-cost TV color-burst crystal is a 





This design uses software refresh of dynamic ROM to 
create a 60K spooler for about $100. 





ties up the microprocessor for less than 
10 percent of its time, a penalty easily 
tolerated when you are controlling a 
printer, which operates at a snail-like 
speed from the microprocessor’s point 
of view. You implement software re- 
fresh by carefully writing the software 
so that the 128 consecutive row ad- 
dresses are read at least every 2 ms: 128 
rows in a dynamic RAM must be re- 
freshed, and the maximum allowable 
time between refreshes is 2 ms. 





Don Rindsberg, 5958 S. Shenandoah 
Rd., Mobile, AL 36608. 


simple and inexpensive choice. 

The 6809 produces two clock sig- 
nals, E (enable) and Q (quadrature), 
which are both 50 percent duty cycle 
Square waves at a frequency exactly 
one-fourth that of the crystal. As 
shown on the timing diagram (Figure 
1, page 47), the Q signal leads the E 
signal by one-fourth of a cycle—the 
E signal, by the way, is the same as 
the phase two signal on the 6800 and 
6502 microprocessors. We use the 
rising edge of Q to trigger RAS (row 
address strobe) on the dynamic 
RAM. The rising edge of E causes the 
switch from row addresses to column 
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addresses, while the falling edge of Q 
triggers CAS (column address strobe) 
to the RAM chips. RAS is exerted ev- 
ery cycle to force a refresh, while 
CAS is exerted only if the address is 
not an “F” address ($FOOO—FFFF). 

Figure 2 (page 48) shows that we 
decode address F in the 74LS20, 
which produces a low when Al 2—A15 
are all high. The 2716 ROM is at 
$F800—-FFFF, and the PIA (parallel 
interface adapter) is at $F400—F403; 
address 11 provides the distinction 
between the ROM and the PIA. We 
buffered A11—A15 with a 74LS367 
because the 6809 has limited drive 
capabilities. Figure 3 (page 48) 
shows how the switching between the 
row addresses AO-A7 and column 
addresses A8—A15 was done in a pair 
of 74LS157 chips. The 33 ohm resis- 
tors prevent ringing on the RAM’s ad- 
dress lines. 

The 6821 PIA in Figure 4 (page 
50) was designed for applications 
such as this, having exactly the num- 
ber of functions we need. It automati- 
cally provides the handshaking sig- 
nals used by parallel printers. When 
the A side is used as a parallel input, 
STR from the host computer sets a 
flag. When the spooler reads the 
data, the PIA automatically provides 
a one-cycle negative-going signal, 
which is used for ACK. On the B side 
of the PIA, a similar STR signal auto- 
matically is generated on a write to 
port B, and the printer’s ACK signal 
sets a flag to signal that the printer is 
ready for another character, 

Figure 5 (page 50) shows the com- 
pleted spooler. A 74LS74, used in 
conjunction with the pause switch, al- 
lows manual shutdown of the print- 
out to change paper and so on. This 
chip changes state at the falling edge 
of E when you change the switch po- 
sition. At this time, the opposite half 
of the ROM is bank-switched into 
memory, which contains a holding 
routine. The two halves of the ROM 
are selected by its A10 line. The 
power supply (Figure 6, page 51) 
provides regulated 5 volts at some- 
what less than 500 ma. 


The Software 


The software has two unusual re- 
quirements: 
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RAS 


CAS 








The timing diagram shows how the signals E and Q from the 6809 gate the 
column (CAS) and row (RAS) logic in the 6665 dynamic memory chips. This 
eliminates the need for delay circuits. 





Evolution. 


Now FoxBASE, the dBASE II source- 
compatible interpreter/compiler, is even 
better than before. Automatic 8087 co- 
processor support allows you to perform 
numeric computations with lightning speed. 
Fourteen-digit precision gives you 40% 
greater accuracy than dBASE Il. The fact 
that FoxBASE is not copy protected means 
you can easily load it onto your hard disk. 
What's more, FoxBASE comes complete with 
a NO-RISK demo plan. 

Of course, FoxBASE still offers all of 
the features that dBASE II does . . . PLUS 
® Runs 3 to 20 times faster ® Permits up to 
48 fields/record...50% more than dBASE II 
¢ Supports full type-ahead * Compiles pro- 


Developed by 


DACOR 


COMPUTER SYSTEMS 


dBASE II is o trademark of Ashton-Tate. 
UNIX is a trademark of AT&T 
FoxBASE is a trademark of Fox Software Inc 


gram sources into compact object code ® Has 
twice as many variables ® Comes with a so- 
phisticated onliné manual and HELP facility. 

FoxBASE is currently available on a wide 
range of machines: IBM-PC, IBM-PC/XT/AT, 
COMPAQ & IBM compatibles, TI Professional, 
DG Desktop, and DG MV-Series to name just 
a few. And it will soon be available on the 
Molecular and NCR Tower computers as well. 
Call or write today for more information. 


MS-DOS: DevelopmentPkg. $395 


Runtime Pkg. $695 
AOS/VS: Development Pkg. $995 
Runtime Pkg. $1995 


UNIX and XENIX: (To Be Announced) 


trom FOX SOFTWARE INC. 


13330 Bishop Road, P.O. Box 269, Bowling Green, OH 43402 / 419-354-3981 / TWX 810-499-2989 


Circle no. 40 on reader service card. 


a7 












. | oe rent 





D0 D1 D2 DS-siédDaS 











—r—™ Figure 3. 
/ ght dynar nic RAM chips are wired in parallel. M i tical connections 
© each chin with the exception of the data lines: a diff data line connects 






| to each chip as shown. Be sure to install a decoupling capacitor near each 6665. 





438 Dr. Dobb's Journal, July 1985 


PROGRAMMER DEVELOPMENT TOOLS 


List Ours 
Brief Sy Solution Systems ws ee 195 Call 
Megamax C compiler for Macintosh............ 295 239 
PC Lint by Gimpel Software. .:.... 00.6... .0.. 100 + 89 
Prolog-86 by Solution Systems ................ 125 Call 


Scientific Subroutine Lib forC by Peerless ....... 175 159 








C-terp Complete C Interpreter 
Full K&R C interpreter/semi-compiler which can 
access functions and externals compiled on various 
C compilers. Comes with a powerful, integrated 
screen editor providing a complete professional 
C programming environment. 


List Price $300 Our Price $269 








Computer Innovations C-86 Compiler........... 395 299 
DeSmet C Compiler with Debugger ............ 159 145 
Lattice C Compiler from Lattice ............... 500 339 
Lattice C from Lifeboat .......... Ltd Qty Special 500 275 
Mark Williams C Compiler w/Source Debugger ..... 495 429 
Run/C Interpreter by Age of Reason........ Sale 150 99 
Safe C Standalone Interpreter by Catalytix ...... Call Call 
Wizard C Compiler by Wizard Systems ......... 450 399 


Xenix Development System by SCO............ 1350 1099 









Microsoft C Compiler version 3.0 
This entirely new version of Microsoft’s C compiler 
features fast execution and compact code 
generation, small, medium and large memory 
models, Xenix compatibility, a linker and a librarian. 


List Price $395 Our Price $339 


OTHER LANGUAGES: . 







8088 Assembler w/Z-80 Translator by 2500 AD... 100 89 
RPLePLUSIPC by STSC™. 0.5. ae eee. 595 469 
BetterBASIC by Summit Software ............. 200 169 
Golden Common LISP by Gold Hill ............. 495 Call 
Janus/ADA by R&R Software .................. 900 699 
MASM-86 ver 3.0 w/utilities by Microsoft ......... 150 119 
Modula-2/86 by Logitech ..................... 495 439 
Professional BASIC by Morgan Computing...... 99 89 
RM/Fortran by Ryan-McFarland ............... 595 439 
C Power Paks From Software Horizons ......... Call Call 
C-Sprite Symbolic Debugger for LatticeC .......... 175 159 
CAPOR Oy FOUGOIR ii ics bs ce ued le was Becw be 395 359 
C Utility Library by Essential Software.......... Call Call 


—_ ii aay 


dBC dBase/C Interface by Lattice ................ 250 219 
GBC Wi SOUICE: CODE. os Cuda Oo ne VEO ee 500 459 
ESP 16r-C py Bellesont 5: co tyas aes Vea Call Call 
GraphiC by Scientific Endeavors .............. 250 209 
Greenleaf C Functions Library ver3.0........... 185 139 
Greenleaf Comm Library ..................... 185 139 
Multi-Halo Graphics by Media Cybernetics ...... 250 199 
PANEL Screen Designer ver. 6.0 by Roundhill ...... 295 234 
Pasm86 Macro Assembler by Phoenix ............ 295 259 
Pfinish Performance Analyzer by Phoenix ......... 395 339 
Pmaker Program Development Manager by Phoenix... 195 179 
Pre-C Lint Utility by Phoenix ................... 395 339 
Safe C Dynamic Profiler by Catalytix ........... 150 Call 
Safe C Runtime Analyzer by Catalytix .......... 400 Call 
Windows For C by Creative Solutions .......... 195 139 
a ag, nn PASCAL: 
Screen Sculptor by Software Bottling .......... 125 109 
Turbo ASYNCH by Blaise Computing ........... 100 89 
Turbo GRAPHICS TOOLBOX by Borland Int’l .... 55 49 
Turbo PASCAL ver 3.0 by Borland Int'l ....... Sale 70 49 
Turbo PASCAL w/8087 or BCD .............. Sale 110 89 
Turbo PASCAL w/8087& BCD ................ Sale 125 9 
Turbo POWER TOOLS by Blaise Computing . New 100 89 
Turbo TOOLBOX by Borland Int'l .............. 55 49 
Turbo TUTOR by Borland Int'l ................. 35 29 
XTC Text Editor by Wendin ................... 99 89 
OTHER PRODUCTS: 
Advanced Trace-86 by Morgan Computing ...... 175 159 
APL2C by Lauer Software..... Interfaces APLtoC 150 139 
Blaise Tools for C & Pascal... 0... 0... ee ee Call Call 
Biraver O¥ SOMCIAIt: oo Fret Gas She a gb Yavin. 250 199 
Codesmith-86 Debugger by Visual Age .......... 145 129 
Epsilon Emacs-like Text Editor by Lugaru......... 195 179 
FORTRAN Libraries by Alpha Computer Service Call Call 
ruxge Plus by Phoeniy <0 me eS 395 299 
Plink-86 Overlay Linker by Phoenix .............. 395 299 
Pmate Macro Text Editor by Phoenix ............. 225 159 
Polytron Products ........... We Carry a Full Line Call Call 
Profiler by DWB Associates ................... 125 89 
Aatrove OY GOnGratt occu gas Nok fa oe eT oe ee 195 169 





Periscope Symbolic Debugger 
by Data Base Decisions 
Write-protect memory board and breakout switch 
allows instant recovery from runaway code. 
Provides on-line help, windowing, extensive 
breakpoints, dual monitor support and more. 


List Price $295 Our Price $269 













products and service without delay. 


Discover the advantages of buying from Programmer’s Connection: 


We offer the latest version of a product. 


Experienced professional programmers are on staff. 


Knowledgeable and courteous sales staff. 
. Significant discounts off of retail prices. 


. Reasonable charges for shipping and handling. 
Toll free services from Canada and the U.S. 


nN 
ad 


eo Sat OO >t EN Pale 


1 





ADVANTAGE #2 


At Programmer’s Connection most popular products are always in stock ready to be 
shipped. Most orders are on their way to you the same day they are placed. We know your 
time is important, that’s why we tell you exactly when you can expect to receive your 
package. Maintaining an adequate inventory is part of our philosophy of fast, 
efficient service. Call us — you’ll discover that Programmer’s Connection delivers 


Most popular products are in stock ready to be shipped. 
Receive same manufacturer’s support as if buying direct. 


Choose from a large selection of the best software products available. 


. No extra charge on prepaid orders, including major credit cards. 


Programmer’s Connection 


136 Sunnyside Street Hartville, Ohio 44632 (216) 877-3781 (In Ohio) oe = 
u.S.: 1-800-336-1166 canaca: 1-800-225-1166 — 


Calli For Our Catalog 








oy 
| dente at. | 


“Programmers Serving Programmers” 





Account is charged when order is shipped 
Prices are subject to change without notice 
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Figure 4. 
Wiring of the 2716 EPROM and the 6821 parallel interface adapter. 
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(1) The software must read every 
possible combination of the seven 
low-order addresses (AO-A6), at 
least one every 2 ms, to refresh the 
dynamic RAM. 

(2) The software must bank-switch 
between the upper and lower halves 
of the ROM to provide the pause 
function. 

Aside from this, the software is 
straightforward. The 6809 supports 
relocatable programs with its “long 
branch” instructions. Listing One 
(page 53) shows how these functions 
are implemented. 

After a short routine to initialize 
the PIA, the program wakes up the 
printer with a null and sets up the X, 
Y, and U registers as pointers and 
counters. It next enters a loop that 
starts with a RAM refresh, which con- 
sists of stepping through 128 consecu- 
tive ADDA #0 instructions; this steps 
through our 128 consecutive address- 
es. The Motorola literature recom- 
mends 128 NOPs, which execute in 
256us, but I have elected to use 64 
consecutive addresses in 128us. Dur- 
ing this sequence, once each byte, 
RAS on the dynamic RAMs is activat- 
ed. Notice that the eight low-order ad- 
dresses correspond to the 128 rows in 
the dynamic RAMs even though we 
are executing code reading the ROM. 
CAS remains high, and because the 
RAMs require both RAS and CAS for 
a read or write, the RAMs do not as- 
sert any data on the data bus. Refresh 
of the RAMs, however, does take 
place because the RAS signal alone 
sets off the refresh internally. 

After the refresh sequence, the ac- 
tual input, storage, and output of 
characters take place. It is critical 
that this routine not use any second- 
ary loops that might prevent refresh. 
For example, if the printer is not 
ready, the routine continues on rather 
than waiting in a tight loop for it to 
get ready. 

To implement a pause function 
with minimum hardware, we have 
put the same code in both halves of 
the ROM except for one instruction 
(see Listing Two, page 55): a BRA 
(branch always) operation in the ac- 
tive half of the ROM and a BRN 
(branch never) operation in the pause 
half. The change of a single bit ($20 
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The rectifiers. transformer, and switches are acuied: in the enclosure, while the 
rest of we power supply components fit on the circuit board (see Figure 5). 








CP/M-80 C Programmers ... 


Save time 


... with the BDS C Compiler. Compile, link 
and execute faster than you ever thought 
possible! 


If you’re a C language 
programmer whose patience is 
wearing thin, who wants to spend 
your valuable time programming 
instead of twiddling your thumbs 
waiting for slow compilers, who 
just wants to work fast, then it’s 





time you programmed with the 
BDS C Compiler. 

BDS C is designed for 
CP/M-80 and provides users with 
quick, clean software 
development with emphasis on 
systems programming. 


terion dl ccatlesstiammliccieh sn leith an sede ge FO oly AOR ee ee Pass 
BDS C features include: 















e A 120-function library written in both ¢ An attractive selection of sample 
execution that produce directly C and assembly language with full programs, including MODEM- 
executable 8080/Z80 CP/M command source code. compatible telecommunications, 
files. CP/M system utilities, games and 
A comprehensive debugger that Plus... dled 

traces program execution and e A thorough, easy-to-read, 181-page 
interactively displays both local and user's manual complete with 
external variables by name and tutorials, hints, error messages and 
proper type. an easy-to-use index — it’s the 
Dynamic overlays that allow for run- perfect manual for the beginner and 
time segmentation of programs too the seasoned professional. 

large to fit into memory. 


¢ Ultra-fast compilation, linkage and 












A nationwide BDS C User's Group 
($10 membership fee — application 
included with package) that offers a 
newsletter, BDS C updates and 
access to public domain C utilities. 
















a 





fast as its closet competitor 
(benchmark for this test was the 
Sieve of Eratosthenes). 


“T recommend both the 
language and the implementation 
by BDS very 2 y. 

Tim Pugh, Jr. 

in Infoworld 
“Performance: Excellent. 
Documentation: Excellent. 
Ease of Use: Excellent." 

InfoWorld 

Sortware Report Card 

.a — buy . 


Reviewers everywhere have 
praised BDS C for its elegant 
operation and optimal use of 
CP/M resources. Above all, BDS C 
has been hailed for it’s remarkable 
speed. 


Don’t waste another minute on 
a slow language processor. Order 
your BDS C Compiler today! 







Complete Package (two 8” SSS§D disks, 
181-page manual): $150 

Free shipping on prepaid orders inside 
USA 







BYTE Magazine placed BDS 
C ahead of all other 8080/Z80 C 
compilers tested for fastest 
object-code execution with all 
available speed-up options in use. 
In addition, BDS C’s speed of 






VISA/MC, COD's, rush orders accepted. 
Call for information on other disk 
formats. 







BDS C is designed for use with CP/M-80 
operating systems, version 2.2. or higher. It is 








compilation was almost twice as Van Court iaw not currently available for CP/M-86 or MS- 
in Lifelines/The Software 00S: 
Magazine 






BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 
(617) 576-3828 
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vs. $21) causes the output portion of 
the routine to be bypassed when you 
close the pause switch. See the parts 
list (page below) for a source for a 
preprogrammed ROM if you do not 
care to program your own 2716. 


Construction 

The only critical aspect of the spooler 
board’s construction is to provide 
heavy power connections and good by- 
passing for the dynamic RAM chips. I 
used the Vector 3677-2 board, which 






ae Circuits _ 


74LSOO quad NAND gate 
74LS04 hex inverter 

74LS20 dual 4-input NAND gate 
74LS367 hex bus driver 
74LS74 dual D-type flip-flop _ 


a et tt tt ot tt AD OR? 


has wide ground and 5 volt busses. 
This 4.5 X 6.5-inch board will accom- 
modate the entire circuit, except for 
the transformer and rectifier, if you 
position the IC sockets carefully. If 
you are not sure, use the 4.5 X 9-inch 
board (Vector 3677). 

The RAM bypass capacitors must 
be close to the power pins of the RAM 
chips. I used stripped wire-wrap 
throughout, rather than Just-wrap or 
equivalent, because my technique 
with the shortcut methods leaves an 






MC6809 microprocessor not use e MC6809E) 
MC6821 peripheral interface adapter 
MCM6665A or 4164 64K dynamic RAM 200 ns 
74LS157 quad 2-line to 1-line data selector — 


2716 EPROM, 5-volt type. Programmed version available at the Bit Stop, 


5958 Shenandoah Rd., Mobile, AL 36608 ($30 ppd) 


1 7805 5-volt regulator TO- 220 case 


Sockets andPlugs | | 

2 40-pin wire-wrap sockets | 
1 24-pin wire-wrap sockets 
11 16-pin wire-wrap sockets © . 
4 14-pin wire-wrap sockets - 


2 20-pin wire-wrap header, JDR Microdevices IDH2OW or sunset 
2 20-contact ribbon header sockets, JDR IDS20 or equivalent, plus 1-2 feet 


20-conductor ribbon cable 






Miscellaneous 


Heat sink for TO-220 regulator 
1-amp 50 v. bridge rectifier 


Reset pushbutton, normally open 
Pause switch, SPST 
2200 mfd 15 v. electrolytic cap. 
33 mfd 15 v. trantalum ee 
27 of. disc cap. 
05 oe disc ap 
1N4001 diode. 
33 ohm %, w. resistor 

56K % w. resistor 






Vector 3677-2 4.5 x 6.5-inch ose or Vector 3677 4.5 X 9.0-inch board 
4.0 MHz crystal or TV color-burst crystal 


Power transformer, primary 110 v. secondary 12 v. at 500 ma 


6 X 8 X 2-inch aluminum enclosure or larger (Radio Shack) 


Most of the required parts are available from these alternate sources: 
JDR Microdevices, 1224 S. Bascom Ave., San Jose, CA 95128 
ordering line 1-800-538-5000; in CA 1-800-662-6279 
Priority One Electronics, 9161 Deering Ave., Chatsworth, CA 91311 


ordering line 1-800-423-5922 


DoKay Computer Products, 2100 De La Cruz Blvd., Santa Clara, CA 95050 
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ordering line 1-800-538-8800; in CA 1-800-848-8008 


occasional bad connection, which is 
tedious to debug. Because we do not 
use the edge-connector, there is space 
to place the large power-supply ca- 
pacitor on the board. The only off- 
board components are the power sup- 
ply transformer, the rectifier, and the 
control switches. 


Possible Design Modification 

You can alter the design for use with 
a serial printer by replacing the PIA 
with a 6850 ACIA and adding a suit- 
able baud-rate generator. The ACIA 
has some built-in handshaking capa- 
bilities that can control the interfac- 
ing of the host computer and printer. 

As to memory refresh, you can di- 
vorce the refresh from the mainline 
routine by interrupting the micropro- 
cessor at 500 Hz or faster (2 ms). The 
interrupt routine would read your 
128 consecutive addresses and then 
either return or do any other short 
function required before returning 
from interrupt. 

By further decoding, you could in- 
crease the buffer size from 60K to 
about 63.5K, using only 0.5K for the 
ROM space and only a few bytes for 
the PIA. Note that we do not use the 
upper 4K of RAM in our design. Also 
note that all of the low RAM space is 
available for character buffering be- 
cause the software uses internal mi- 
croprocessor registers exclusively as 
pointers and counters. 

Because the 60K spooler is a 
“smart” device with its own micro- 
processor, you could use routines to 
add a variety of control functions, 
such as automatic form feed. If your 
software gets complex, you may wish 
to implement a stack in RAM and call 
a subroutine for refresh, e.g.: 


LOOP BSR REFRESH 
(test a flag) 

BPL LOOP 
(continue) 


Note that the loop contains a call to 
the refresh routine. Each loop where 
a significant delay is encountered 
should contain such a call. 


DD] 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 193. 
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P, r in f Spool er (Text begins on page 46) 
Listing One 


An assembled listing of the ROM contents. The 2K EPROM occupies locations 


$F8000 to $FFFF. 


FRFF- 
F4aa- 
F4aa— 
F4a1— 
F4a2- 
F4az- 
F4a3- 
aaaG- 
Faaa— 
Faaa- 


Feaa— 


FBaa- 
FEAS~ 
FBGG— 
FRG 
FEGE- 
FEaD— 
FEL a— 
FB1LZ- 
FEAS— 
FRI7— 
FELA- 
FEiC— 
FEF 
FR22~ 
FE25- 
FESS 
FEZS— 
FE2C- 


FREF- 


FEBG- 
FERS~ 
FEB4— 
FEBS 
FEES — 
FEBE— 
FEBE~ 
FECA 
FECZ- 
FRCS- 
FEC? 
FECA 
FECC- 
FRCF- 
FEDZ- 
FEDS 
FEDS- 
FBDE— 
FEDR- 
FED: — 
FEIDF - 
FRE2~ 
FRE4- 
FBET- 
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i fer .ch Gh: 
oy 
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Lage 
Lie 
Liie 
Lie 
1138 
1146 
Li 38 
Lie 
lire 
1186 
lize 
12h 
Rif 
1228 
1238 
Lee 
128 


1266 


oy {i 
mt Tt 


job 
cc ts 
ee 1 

ok 
oe, 
Soar taal 


! 
tf 


S20 
1538 
1S4e 
{S50 


168 


rf 
=] 
1 ih 


+ US 


ie 
IT of on 
Ahoy yd 
4) 


a 
ot 
ak 


lei 


1a 26 
ee 


# SPOOLERG4 — 

~OR $F Ses 

~TA #8 
* ~ TF 
STACK EG 
PORTA JEG 
DOR Ets 
RA w EU! 
FORTE .Et 
DORE » Et! 
CRE 2EG! $F 45 
SIP 2.EU! $0808 
EC ~EG $F G8 
Mee 


=F FF 
$F 400 
$F 4c 
$F 4a 
$F 42 
$F 42 


CLL. 


»eEG! EQM-Sat 


SPOOLERE4, OES 


IR REI ts i il reesei etait sprees tain gas sn 


»~ bs 


$F Be 


SEIF $6508 BYTES 


SAP eas ig pm espe cee ese pl trl Sl lg ee e sdene aeS 


START CLE CRF 
CLE CRE 
Lon Fhe 
STA ODRA 
LOA EFF 
2 TA DDRE 
LOA #£2F 
m2 TR CRF 
LOR #ELF 
= TA CRE 
LOM #$8u 

STA FORTE 
LOR PORTA 
Lie Fc 


LO’ ASr 
LOLt $a 


Los 


REFRSH IS 


IWSTRUCTION IS 


CHEIM CMPLD #Max 
BEQ FALSE 
LOE CRA 

BFL PAUSE 
LOA PORTA 
STA M+ 

LEAW 1.U 
CMP #EOM 
BHE PAUSE 
LOX #SciM 
PALISE 


HOTACK 


+: HERE . 
* 6&4} ADDS #a COpDeES 
“4: 


BRM CHEOUT 


SE 


LERA REFRSH 


CHEQUT CMPL #6 
BEG 
LOE 
BRL 
LO 
STA PORTE 
LOA FORTE: 
LEAU ~1-U 


RE 


2 + 


LMF FEO 
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IUREF F: 


GORE F RF 


ACCESS DDR Ss 
IWFUT 

BE - CLUTFLUT 
HeLeLiitd 
HeLe1iii 
TOSS AWULL. 
STROBE CAz 

m™ = THE TR 


Yo = OUTPTR 
(HRI T 


Cops TS TS 
FOR REFRESH. 


Mir 


A 


CHECK COUT 
SRIF IF MA. 
BET IHFUT FLAG 
SRIF IF CLEAR 
GET IHFUT DATA 
STORE & IHC 
THOR. OUT 
EMD OF MEM? 
ERAHICH IF HOT 
WRAP ARIE 
HEWER BRANCH 


COUNT ZERO? 

SKIF IF @ 

GET FRTR REACY 
BRANCH IF BLS 
GET O8TA. IHC 4 
FRIHT IT 

CLEAR IRC FLAG 
DECR CWT 


AT MEMES EMO 


(Continued on next page) 


a a aie 
POSS 


MODEM FOR APPLE OR IBM 
SG 9. 9 Sere orem 


FCC APPROVED 
* BELL SYSTEMS 103 COMPATIBLE 
* 300 BAUD 
* AUTO-DIAL/ AUTO-ANSWER 
x DIRECT CONNECT 
* INCLUDES ASCII PRO-EZt™ 
MENU DRIVEN SOFTWARE 
* INCLUDES AC ADAPTOR 


DISKETTE FILE 


$8.95 


WITH PURCHASE 
OF 50 DISKETTES 


$9.95 iF 
PURCHASED ALONE 
HOLDS 70 514" 


DISKETTES ee 


NASHUA DISKETTES 
5’ SOFT SECTOR, 
DS/DD BULK PACKAGED 


$.89ea = $.958a $9988 


ORDER TOLL FREE 
ae Las) 
dy 4k Ty 


TAXAN RGB VISION III 
SUPER HI-RES RGB MONITOR 
ORIGINALLY MADE FOR ACORN COMPUTER 


» 12” SCREEN $299.95 


* 640 x 262 PIXELS 
* SAME SPECS AS MODEL 420 


NO C.O0.D. ORDERS PLEASE 


A eS RTL 
8087-3 $129.00 


DISK DRIVES 


FOR IBM 
TEAC FD-55B 


MPI-B52 
FULL HEIGHT DS/DD 


TANDON TM100-2 
FULL HEIGHT DS/DD 


FOR APPLE 


* V2 HEIGHT ALPS MECHANISM 
* 100% APPLE COMPATIBLE 
* ONE YEAR WARRANTY 


BAL-500 


* TEAC — 2 HEIGHT DIRECT DRIVE 

* 100% APPLE COMPATIBLE 

* 40 TRACK WHEN USED WITH 
OPTIONAL CONTROLLER 

* ONE YEAR WARRANTY 


CONTROLLER CARD .... .$49.95 
lic ADAPTOR CABLE ....$19.95 


JDR Microdevices 


1224 S. Bascom Avenue, San Jose, CA 95128 
800-538-5000 © 800-662-6279 (CA) © (408) 995-5430 
FAX (408) 275-8415 @ Telex 171-110 


© Copyright 1985 JDR Microdevices 
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P, r in f Spool er (Listing Continued, text begins on page 46) 
Listing One 


FBES- 2e be 1 Pee BHE GOREFR! BRANCH ITF WOT 
FREA- 1A SE &e 
are 


FREG—- He LPrits Lio‘ Sih WRAP ARLE 
FREEE~ 16 FF SF if2@ GOREFR LERA FEFRSH GO TO REFRESH 
LPR Sle sist reso cies ‘ein in sr Sonin op ess bborace sac Sco :ccee san iad, ai S606S oops bate wasp NG Sis eet inky <aiah an, waver, Sine esas obese 
ri ir4ea «bs #FBFE-* SPRPACE TO VECTORS 
fore FE Be lfoe@ KESET .DA START HEEO OWL’ RESET 


i 


A.’ 





1Prea TPT ee sane tases nes meee sree eneee eneee soune scene setve enten conse sean een sesee cents seen sesee resco senun siete mpste ett seus comm conte snece conan sonme eins sete cots 
LT Be me ee 
Frag 1P Se ~BS $FFGG-* SKIF #30e BYTES 
173Q “———--————--———-—~ +--+ + —- - - ---- a 
FReG- FF Fo 1 1588 STARTS CLE CRA FCCESS DPR* Ss 
FF@S—- TF F4 2 15816 TLE CRE 
FReE- Be Be ls2e LOA #4 Mo- IWFUT 
FF@S-—- BF F4 Ge 1ISte STA CDRA 
FFEB- 36 FF 148 LOA #4FF BE -— OUTPUT 
from your C programs FF@D- BF F4 ee 1958 STA DORE 
with rrig- 86 ar 1S66 LOA ELF Mee iid 
FFiz- Br F4 @1 12F6 STA CRA 
PC—LINT PFiS~ 36 2F 1Sse8 LOA #E2F MeALeLiid 
FFiIF- Br F4 3 1lede STA CRE 
FFiA- Fé 8a 1388 LOA Hee 
—LINT analyzes your C programs (one hah 4 rare sia Patel tons 

or a aciesl ae uricovers Hill FFiC- Br Fa G2 13ie ST EUR tee UBL 

bugs, quirks and inconsistencies. It will catch FFiIF- 6a F4 Be 1328 LDA PORTA STROBE CAS 

subtle errors before they catch you. FF22- SE @a aa 1936 Los Scr hos THF TR 

; FF25- 18 SE be 

the ONIX OS. but Sapiens ee aa FR2o- Ge 1946 LOY 450M Wyo OUTE TR 

greater sensitivity to the problems of the FF29- CE @6@ 46 1926 LOLt +e Lo= CHROOT 

8086 environment. | FReC~- 10 CE FS 
PrP2r = ir LOS #STACE 


¢ Full K&R C 
¢ Supports Multiple Modules—finds incon- 


Iie ob Aaa ee se cabin pene ior enw ements ints ct al meeps se 


* REFRSH IS HERE. COWSLTSTS OF 


roa 30 
go omy Ty 
mi mi im 


hi ee ee i 
it 


periment Deencen seca alan ar Ure 298 4 64 ADDA #4 CODES FOR REFRESH. 
of functions and data across a set of Gad & LHETRUCTION IS SE ac 


modules comprising a program. 


a4 2338 BME GOREFS BRANCH IF HT 
FFEA- SE Ge 


13 


Lit! eS WRAPAROUKHE 
GOREFPsS LEREA REFRSS GO TO REFRESH 


¢ Compares function oe ae oS O11Q *----—- ee 
associated parameters and complains | le. 
there is a mismatch or too many or too PRBG@=: 11 25 7 o Wb 
few arguments. FFBS- 8a 212A CHEIHH CMPLD Hrs CHECK COUNT 
e All warning and information messages FFB4—- 2F 14 213e BE PALISES oF. IF IF Mrs " Re 
may be turned on and off globally or FFBEée- Fe F4+ 1 2146 LOE CRF GET IHFUT FLAG 
locally (via command line and comments) FFES- 2 GF 215a BPL PAUSES  SEKIF IF CLEAR 
so that messages can be tailored to your FFRB- BG Fd ae 2168 Loa PORTA GET INFUT DATA 
Bova FFBE- Ar 3a 2176 STA s+ STORE & INCE ¥ 
¢ All command line information can be FFC@- 35 41 21S8 LEAU 1st IHCR. COUT 
furnished indirectly via file(s) to automate FFC2- SC Fa aa 2190 CMES #ECM EMD OF MEM? 
ee FFCS- 26 @3 2Ee BNE PAUSES BRANCH IF HOT 
¢ Use it to check existing programs, pro- FFOY- SE AG Ae 221A Low #S0r WRF AR CUM 
ean ae 7 38 nis Pe ae FFCA- 2@ @3 22268 FAUSEX BRA CHEOUM 
as a preliminary to c n, or ee is That gees Mh, eget is, gerade a) 
to scaling up to a larger memory model. ee : i a a fete LERA REF Roe 
¢ All one pass vo an eer pre PE Do- re ie ee 2248 CHECUs CMPLD #e MOUNT ZERO? 
processor so it’s very fast. det, Siete iMentay Se a et i eel aon = 
FFDS- Zr 13 228 BEG GOREF S SKIF IF 
: - fey carnener Todel aes FPDS= FG. F465" 2268 LOE CRE GET FRTR READY 
var “ et Serene mie s oe : 
~ ' FFDS-- 24 14 2278 BFL GOREFH  BRAHCH IF BUSY 
pgs arm lee FFDA- AG AG 22808 LOA» 4+ GET DATA. THCR 4 
¢ Introductory Price: $98.00 MC, VISA FFDC- BP F4 @2 2290 STA FORTE FRIHT IT 
Ca Ok ise FFDF- 86 F4 @2 2300 Lom FORTE a Re ey 
FFEZ- 33 5F 2318 LEAL! -1.U ECR CCIE 
¢ Runs on the IBM PC (or XT, AT or FFE4— im |c fA 
compatible) under DOS 2.0 and up, with ee ee de Sh See Bk oe ee Age ne 
a minimum of 128KB of memory. It will Pre 8 eb ChIP FEE AT MENGES EMD 
use all the memory available. FFES—.2 
1 
EA 
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CIMPEL SOFTWARE | Free 


3207 Hogarth Lane © Collegeville, PA 19426 _ 
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*Trademarks: IBM (IBM Corp.), PC—LINT (Gimpel Software), 
UNIX (AT&T) 


End Listing One 
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Listing Two 


A hexadecimal dump of the EPROM. Base address for this dump is $0800 (corresponds to the first byte of the EPROM). 


Beea- FF F4 @1 FF F4 8S Se Be 
HBAS- BF F4 Ba 26 FF BF F4 B2 
MB1E- 26 2F BF F4+ Bl Sa SF BF 
MRiSG- F4 @3 Sé 8a BF F4 Be Be! 
BeSa- Fe} BH SE Be Be Le SE Be 
BESS- BA CE Be Be ie CE FS FF 
ARSZA- SE BA SE BA BE GA SE 8a 
ABRS- HE GA SE AB SE Fe SE Ae 
GR4A- GE FA SE BA SE Be SE Bea 
GEeda- FE BA SE Be SE Be SE Be 
BESA- GE AA BE Be SE FE SE Be 
ABSA- GE FA SE Be SB HE BE Be 
BRBBA- SE FA SE FA SE Be Se Bea 
ABAR- SE AA SE Aa SE Ae Se ee 
ABPA- SE BA SE Fe SE AA Be Be 
WMEPa- 6 AR SE Be SE Be SE ae 
ABSA- BE BA SE BE SE AA BE Be 
WMBSS- BE FA SE BA SE WA SE Be 
HESIA- SB AA BE FA BE Be SE BA 
BESS- GE AA SE BA SEB AA Se BA 
APA SE FA SE FA SB BA Se Be 
RB ASa- SE AA SE FA SE FA Be Ae 
BEBA- Li asa Fe fe fr id Fe F4 
BEBS—- Hl 2A BF Be Fo @e AY Se 
4BCG=— 33 41 SC Fe Be Ze Ss SE 
WECS= Gh. fia 41 5 16 FF 61 il 
WEDA- a2 BA He Sr 13s Fe F4 SS 
BEDS- “A ld Ae AR BY F4 Be Be! 
GBEG- F4 &2 33 SF 16 S&C Fe be 
HRES- 2e 4 Le SE Be ee 1a FF 
MBFA- =F Aa Ae FA Ae AeA Ae ee 
HBP S- EE Ge Ge Be ER Ge Fe Ee 
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Fe} 1 FF ws Se 

F4 @@ 86 FF BF Fa G2 
2F Br F4 Gil Se 2F Br 
AS fe Ba Br F4 Be Be 
AA SE Fe 8a 1b SE ee 
CE 8a fH 1@ CE FS FF 
BA SE BE SE WE Se Be 
AA SE Aa SE Ga Se aA 
AA SE AG Se AA Be Be 
BA SE FA Se AA Se AA 
Aa SE AA Se wea Se «AA 
GA Se GA eR Ae Se AA 
AeA SE FA SB AA BE Ba 
BA SE Fe SE Ae Be we 
Aa GE FA BSE BA BB Ae 
Ga Sh AA BE aa Se ar 
Aa SE AA SE Ga Se aA 
HA SE Fe SE GA Be Aa 
Q@G SE Fm SE Ae Se ee 
AA SE aa SR AA Se aa 
Aa SE aA BSE AA Se BA 
AA SE FA SR AA Se ae 
BS Fe oH SF 14 Fe Fo 
2A GF Be Fe 8a AP Be 
41 SC Fae Bea se BS SE 
HG 2a Ws 16 FF 61 11 
HO Ge 2F 13 Fe Fa @S 
i4 AB Ae BY Fae we Be 
M2 23 SF 16 8c Fe ea 
M4 18 SE @6 we ie FF 
HE GH A Ga Ae Be AeA 
BE GA Be Aa Ba FF ae End Listing Twc 





IN-CIRCUIT EMULATOR 
For 8050, 8049 and 8048 LC’s 





FR VOB BOR EK 


FG RE cee a: ; 
$e 3X <A RS € SR ER oh EK 


Liss eee eo ish 
$K Se ESS 3 ES 

ER eg. ES (Ek fk TS ES 
RPRODONIOPOANI GAIA SHPeerreeteaprmenermecperegpgnees: 


For Hardware/Software Design the E232-48 
replaces the target microcomputer for complete 
emulation under control of the host computer. 
It emulates all of the above uC’s plus their 
ROM-less and CMOS versions. It’s features are: 

* Real time emulation up to 11 Mhz. 

* Full 4K Emulation Memory. 

%* Hardware Breakpoints. 

* In-line Assembler and Disassembler. 

* Upload, Download & Terminal mode drivers 

for |BM-PC, CP/M-80 and CP/M-86 are included. 

Cross Assemblers for 8048 series and other uP’s 
running on the above host systems-From........... $150 


SIGNUM SYSTEMS 
726 Santa Monica Blvd. 
Santa Monica, CA 90401 (213) 451-5382 
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Disk Sale 


Dysan. 


CORPORATION 


TYPE BOX OF 10 
5"-SS/DD-48 TP! 19.50 
5"-DS/DD-48 TPI 25.50 
5"-SS/DD-96 TP! 29.50 
5"-DS/DD-96 TPI_ 37.50 
5"-DS/DD-IBM/AT 52.95 


8"’-SS/SD-48 TPI 23.95 
8-SS/DD-48 TPI 25.50 
8'’-DS/DD-48 TPI 29.95 
Available Soft or Hard Sector 
For Plastic Case Add 1.25/Box 


Plus Tax & Shipping 
- Cash, Visa, Mastercard, COD - 


Integral Systems Corp. 
2900-H Longmire Drive 
College Station, TX 77840 
(409) 764-8017 


Circle no. 23 on reader service card. 








No source code for 
your REL files? 


REL/MAC 


converts a REL file in the Microsoft™ 
M80 format to an 8080 or ZILOG™ Z80 
source code MAC file with insertion of all 
public and external symbols. 

@ REL/MAC makes MAC source files 


@ REL/MOD lists library modules 
e@ REL/VUE displays the bit stream 


@ REL/PAK includes all of the above 
@ 8080 REL/MAC demo disk $10.00 


REL/PAK for 8080 only 
REL/PAK for Z80 & 8080 
on 8"SSSD disk for CP/M™ 2.2 


Send check, VISA, MC or C.O.D. to 


[SE IMicroSwimi 


COMPUTER TECHNOLOGY 


PO. BOX 1473, ELKHART, IN 46919 
1-800-622-4070 
(Illinois only 1-800-942-7317) 


Circle no. 41 on reader service card. 
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Designing a 
Real-Time Clock 
for the S-100 Bus 


by Alan D. Wilcox 


The author, with time on his hands and 
mind, builds a hardware clock for his 
CompuPro 8 16/2. 
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Adapted by permission of the publisher, Prentice-Hall, 
Inc., from the forthcoming book, Designing and Trouble- 
shooting a 68000 Microcomputer System, by Alan D. 
Wilcox, available 1986. No part of this adaptation may 
be reproduced, in any form or by any means, without 
written permission from the publisher. 


I set it aside to look over later. Naturally, it was in 

a stack of earlier versions of the program that 
didn’t quite work right and looked almost the same except 
for a few hard-to-find bugs. You know the rest of the 
story: when I came back in a few weeks, I couldn’t tell 
which was the latest and therefore correct copy of my 
program. If I had jotted down the time or at least the date 
on my latest copy, I could have identified it then. So I 
decided it was time to design a clock circuit to do the 
writing for me automatically. 

The result is a clock circuit using the popular National 
MMS8167A real-time clock IC. The circuit requires no 
changes in the operating system and has battery backup 
so you need not reset it after turning off the computer. 
Designed to meet S-100/IEEE-696, it performs easily 
with virtually any S-100 microprocessor system. Two as- 
sembly language programs set and print the time and 
date; a third program prints the time, date, and filename 
as a title header then prints out the file in 60-line pages. 


A fter revising my latest program and printing it out, 


Background 

There are two basic ways to put a clock in a computer: 
either modify the system software to keep track of the 
time or provide a piece of hardware that will keep time 
independently of the computer. The software approach is 
easier in that you need not tamper with the computer 
hardware, but it has several drawbacks. First, when 
power is off, the clock is off; this requires resetting the 
clock every time you turn the computer on. Second, you 
must modify the system software to support a time-keep- 
ing program; procedures for this modification can be al- 
most incomprehensible to the novice. Finally, the subse- 
quent time-keeping isn’t accurate anyway; for example, 
the clock must be off during disk read or write operations. 
The hardware approach avoids these problems. 

The concept of a hardware clock is simply to have a 
clock available for the computer to read when it wants the 
time and date. The clock has its own battery power supply 
to keep it running when the computer is turned off. The 
only programming required is for setting the clock and 
reading it; these straightforward programs do not require 
an intimate understanding of the system software. Final- 
ly, accuracy is crystal controlled and is unaffected by 
other computer operations. 

A number of articles have discussed how to implement 
a clock in a personal computer. In one design, Calaway 
and Hill presented what I call a software approach to 


Alan D. Wilcox, 60 South Eighth St., Lewisburg, PA 
17837. 
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time-keeping.! Their basic idea is to provide a small 
amount of hardware to generate an interrupt each second; 
their system responds to this interrupt by updating the 
total number of pulses counted and thereby updating the 
clock time. The operating system needs modification, 
however, which can range from straightforward to pro- 
foundly complex. 

Hassebrock described a simple approach to keeping the 
time and date using the Hayes Chronograph.” The Hayes 
unit is a piece of hardware connected to the computer 
through a serial data port. When you want the time or 
date, you run a program that tells the clock to send the 
information to the computer for printing or display. Be- 
cause the Chronograph is connected to a serial port, you 
must configure the port to match the required data rate, 
and so on. Therefore, you need a modem-type program to 
access the clock; the program may be either part of the 
time-setting/reading program or part of the operating 
system. Hassebrock chose the latter and modified his sys- 
tem somewhat. Overall, the concept of an external serial- 
data clock is appealing except that a spare serial port may 
not be available. 

A hardware approach described by Ciarcia seemed ini- 
tially to offer some distinct advantages.’ First, the design 
uses hardware to keep time: no difficulty keeping time 
when the power is off, no system software modifications, 
and no accuracy problems. Second, the clock does not use a 
serial port, making port initialization unnecessary. The in- 
tended application was for use with the Z8-BASIC micro- 
computer as an intelligent clock. Although the approach 
has merit, as it stands, it is not a generally useful design. 


Design Overview 

The design requirement was for a real-time clock to oper- 
ate in my CompuPro System 816/Z, a Z80B S-100 ma- 
chine running at 6 MHz. The clock should keep both the 
time and date, as well as provide a means of interrupting 
the system either on a regular basis or at a predetermined 
time. It should maintain an accuracy within 10 sec/ 
month, with or without system power. Except for initially 
setting the time and date, the operator should not have to 
interact with the clock in any way. 

' The clock should meet S-100/IEEE-696 and operate as 
a slave without affecting normal system operation; like- 
wise, it should require no changes in the system software. 
Data transfer between clock and system should use I/O- 
mapped ports. The handshaking should use the S-100 
RDY line, and because the processor operates at 6 MHz, 
some wait states should be available. Clock interrupts to 
the system should be switchable to any of the S-100 vec- 
tored interrupt lines. 

Although all initial programs should poll the clock for 
the time, the clock should be able to use any of the vec- 
tored interrupt lines to implement a future real-time mul- 
titasking executive; in the long term, this could involve 
multiprocessing with a new 10 MHz 68000 CPU board in 
the system. For the near term, however, the software 
should at least set and display the time, as well as print 
files with a time/date header. 


Dr. Dobb’s Journal, July 1985 


Hardware Design 

The National MM58167A real-time clock IC* provided a 
solution to the design requirements. As shown in the block 
diagram (Figure 1, page 58), you can partition hardware 
using this clock IC into several major modules that in- 
clude the clock, address decoder, data-bus interface, in- 
terrupt switches, and power supply. Once you divide the 
hardware into modules, the design can proceed in much 
the same way as in software development: top down, bot- 
tom up, or most critical first. 

The appropriate design method in this case is to consid- 
er the most critical section first. Everything depends on 
the clock IC, and its requirements come before all else. 
The block diagram of the MM58167A (Figure 2, page 
59) shows that the IC uses five address lines (32 different 
addresses) and a chip select and has a single bidirectional 
data bus with separate read/write controls, two interrupt 
outputs, and a power-down control. Designing to accom- 
modate each of these requirements individually results in 
the implementation shown in the circuit schematic (Fig- 
ure 3, page 60). 

I decided to use I/O mapping rather than memory 
mapping for the clock data transfer. With a maximum of 
256 ports, only the lower eight bits of the address bus need 
decoding, and five of these are decoded internally by the 
clock IC. For maximum flexibility, I chose to use DIP 
switches to select the three most significant bits of the 
I/O address. The output of the decoder is used as a chip 
select for the clock and by the read/write qualifier circuit. 

The S-100 data bus in and out lines are buffered with a 
pair of 74LS244s connected directly to the clock IC. The 
buffer for data-in (DI from the processor’s viewpoint) is 
strobed using the I/O read qualifiers pDBIN and sINP 
and the chip select CS. The data-out buffer is strobed 
using pWR*, sOUT, and the chip select CS. During a 
typical read bus cycle, for example, the system places the 
proper address on the address bus, asserts sINP, then as- 
serts pDBIN to strobe the DI buffer and the clock RD* 
input. In a typical write bus cycle, the system puts the 
address on the bus, asserts sOUT then asserts pWR* to 
strobe the DO buffer and the clock WR* input. 


Timing 
A basic read or write bus cycle has three bus states (BS1, 
BS2, and BS3), each of which takes 167 ns in a 6 MHz 
system; consequently, a bus read or write normally com- 
pletes within 500 ns. However, for I/O devices that re- 
quire substantial access times, you can extend the bus 
cycle by adding. a number of wait states. To determine 
whether wait states are required during any read or write 
bus cycle, the bus master samples the RDY line at the 
rising edge of the system clock in BS2. If the RDY line is 
low, then a wait state (BSw) is inserted immediately after 
BS2; if the RDY line is still low one bus state later, yet 
another BSw is inserted. The addition of wait states con- 
tinues until RDY finally goes high; at that point, the bus 
cycle concludes with BS3. 

The MM58167A clock requires the addition of wait 
states because of its slow access time. For a clock read 
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operation, the maximum specified time from valid ad- 
dress until valid data is 1050 ns, far longer than a normal 
read bus cycle with no wait states. The read bus cycle on 
my 6 MHz CompuPro system is shown in Figure 4 (page 
62) with approximate times to scale. Asserting pDBIN at 
the beginning of BS2 leaves no time for the clock to bring 
the RDY line low. However, all Z80 microprocessors 
automatically insert a single wait state for I/O instruc- 
tions (by carrying out a microcoded instruction in the 
Z80), so the clock really has until the beginning of the 
first wait state BSw (auto) to get RDY low. 

The timing question becomes: “Can clock RD* be 
pulled low and can the clock respond with RDY low—all 
within 167 ns?” The specs for the clock indicate that 
read-strobe to ready-strobe (clock pin 4) is 150 ns maxi- 
mum, but the 7406 easily could add another 40 ns in prop- 
agation delay to the system RDY line. Add these up. In 
the worst case, the clock board cannot get the RDY line 
down in time even by taking advantage of the Z80 auto- 
matic wait state. As indicated in Figure 4, the clock actu- 
ally takes from about 100 ns (middle of BS2) to about 190 
ns (middle of BSw). Actual timing measurements and 
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read operations indicate that the clock sometimes is fast 
enough but usually is not. For reliable operation of RDY, 
we must add an extra wait state. 

In my system, I used the Z80 processor board’s option 
switch to add a single wait state to I/O operations in 
addition to the Z80 automatic wait. This required no ad- 
ditional hardware, although you could enhance a more 
general clock design by including an on-board wait state 
generator circuit. Libes and Garetz present a number of 
suitable circuits in their book.°® 

When the clock data is finally valid, the system allows 
the RDY line to go high, and the processor reads the data in 
BS3. To finish BS3, pDBIN is negated, which raises the 
clock RD* input, and the address is deselected. 

The write bus cycle timing requirements for the clock 
are similar to the read timing requirements. As in the read, 
you must include a single wait state to allow sufficient time 
for RDY to be pulled low during the write operation. 


Power-Down Design 
The power-down design is critical in the actual operation 
of the clock. If POWER DOWN* is not asserted to a low- 
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Figure 1. 
Block Diagram of Real-Time Clock Board 
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voltage level at least one microsecond before system 
power removal, then the contents of the clock memory 
might be anything (or nothing) when you restore normal 
system power. Furthermore, when the power does come 
back on, POWER DOWN? must be held low until all bus 
signals are valid. 

A common way of accomplishing this is to use a zener 
diode that sets a reference threshold voltage to control a 
transistor switch. Consider the circuit (Figure 3) when 
the system power is off: Q1 and Q2 are both off. When the 
system power comes on, nothing happens until the system 
bus voltage reaches about 6.6 V. Then the zener conducts, 
turning on Q2, which then turns on QI. When QI goes on, 
voltage is applied to POWER DOWN%, which activates 
the clock chip for normal operation. Because a system bus 
voltage greater than 6.6 V is enough to allow near-normal 
output from all 5 V regulators, all bus signals should be 
valid by this time. When the system power goes off, the 
system voltage drops gradually enough so that, when it 
passes below 6.6 V, the zener and Q1/Q2 can drop the 
POWER DOWN * to a low voltage before the bus signals 
are no longer valid. 

A small, 3.75 V, 20 mAh, NiCad rechargeable battery 
maintains clock operation when system power is off. 
Specified current consumption of the clock is on the order 
of 10 to 20 uA during power-down; my clock measured 14 
uA while using the battery with a series-blocking diode. 
The 470 ohm resistor provides a trickle charge from 2 
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mA to about 2 mA, depending on the state of the battery 
and component tolerances. For an average use of several 
hours a day, this resistor keeps the battery charged be- 
tween 3.8 and 4.15 V with no difficulties. 


Logic Circuits 

IEEE Std-696 (sec. 3.7) states that a card may not source 
more than 0.5 mA at 0.5 V nor sink more than 80 uA at 
2.4 V on most system signal lines.> The effect of this is 
that you can connect only one LS TTL gate per card to 
each line of the address bus. My decoder uses the 
74LS136 exclusive-or, which sources a worst-case maxi- 
mum of 0.8 mA at 0.4 V. I expect this to cause no opera- 
tional problems in any practical sense. I opted to use the 
74LS136, rather than buffer the address bus with extra 
gates, to be strictly within the specification. I prefer to be 
conscious of trade-offs than to not be aware of them and 
have a problem occur later. 

The pull-up resistors for the open-collector 7406 are 
selected to maintain proper logic levels and currents. The 
design trade-off is to let the various resistors be high for 
lower current consumption or to let them be low for more 
speed. I designed for as much speed as possible. Typical 
calculations are discussed in the standard TTL Data Book 
(page 6-6).’ 

Near the end of the project, I decided to implement the 
clock standby interrupt, which required an extra non-in- 
verting gate. I used the spare 74LS10 and the last spare 
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Figure 2. 
Block Diagram of the MM58167A (material courtesy of 
National Semiconductor Corporation) 
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Figure 3. 
Schematic Wiring Diagram of S-100 
Real-Time Clock 
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7406 gate to get this output from the clock board. This 
particular output does not have the flexibility of the pro- 
grammable output, but you can use it to indicate a match 
between real time and a preset time for a wake-up alarm. 


Construction and Installation 

I prototyped the entire real-time clock on a Vector 8800V 
wire-wrap board, as shown in the photo (page 64). I added 
the interrupt switches (S3) for the wake-up interrupt af- 
ter taking the photo; they are located beside the main 
interrupt switches (S2). All the circuits took less than a 
third of a standard S-100 board. I wired the transistor 
power-down circuit on the 24-pin header at the lower-left 
edge of the board by the battery. I used plastic “wrap ID” 
panels on the back of the board for each IC socket to 
make component and pin identification easier. 

My system does not have any I/O port assignments in 
the range AOh to BFh, so I selected AO as the base address 
for the clock. For this base address, S1 sections a and c 
are Closed for a “1” and section b is left open for a “0.” As 
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Figure 4. 
Read Bus Cycle 
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shown in Figure 5 (page 63), the clock uses a total of 24 
addresses rather than the whole block of 32 allocated to it. 
This permits additional design flexibility if port addresses 
are at a premium. 

You may install the board in any convenient location 
on the bus. Because of its wire-wrap construction, howev- 
er, the board takes up the space of two normal boards and 
cannot be crowded. Depending on your needs, you can 
snip down the wire-wrap pins considerably (watch your 
eyes) to make the board thinner. 


Software 

When writing the programs to set the clock and print the 
time, I concentrated on writing clear, structured, modular 
code. Thus, you should have little difficulty making 
changes to transport the clock software to another system 
or to make modifications. Naturally, the resulting code 
perhaps is not as brief as might have been possible were I 
writing only for myself. 

I have presented several programs here for using the 
clock. The first is CLOCKSET (see Listing One, page 68), 
a program to set either the day and date, the time, or both. 
The second is TIME (Listing Two, page 74 ), a program to 
display the time and date on the console. This same pro- 
gram will print the time and date plus a short text (such as 
a filename) to LST: if you include the text with the pro- 
gram invocation. This second feature of TIME is handy 
when you are using a text editor and need a date on a page 
about to be printed. The last is TIMELIST (see Listing 
Three, page 79 ), a program to print a time/date header 
with filename then list a text file with 60 lines per page. 

Recall that I chose to use AOh as a clock base address for 
I/O. In all the programs, I used CLOCK as the base ad- 
dress and set its value equal to AOh. I identify other clock 
port addresses by a simple reference to CLOCK+1, 
CLOCK+ 2, and so on. For example, from Figure 5, 
CLOCK + 3 is the address for “minutes” and CLOCK +7 is 
the address for “months.” Using CLOCK in this way allows 
you to make an easy change to any base address just by 
changing one statement at the beginning of the program. 

The first program, CLOCKSET, asks whether or not to 
set the date. If you select the default “No,” then it asks 
whether to set the time. If you choose a second default 
“No,” the program terminates without changing the clock. 
If, however, you do select the date-set option, then it asks 
for two digits for the day of the week: enter 01 for Sunday, 
02 for Monday, and so on. You enter the day of the month 
the same way: 01 through 31. You enter the month itself as 
month 01 through 12. Select the year by entering just the 
last two digits; that is, 85 for 1985. Each January, you 
must change the year manually; the clock IC does not 
automatically change to a new year. When writing this 
program, I opted to keep it simple: no error checks and 
nothing fancy like entering literal names instead of num- 
bers. If I make an error, I just invoke the program over 
again and do it correctly the next time through. 

The second part of CLOCKSET is similar to the date- 
setting procedure. You enter the time in two-digit groups 
for the hours and minutes, and a carriage return sets the 
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unctional Description — 





TABLE Il. ADDRESS CODES AND FUNCTIONS 


A4 A3 A2 At AO _ : Function 
0 0 0 GY Counter—Ten Thousandths of Seconds 
O G0 6 @ } Counter — Hundredths and Tenths of Seconds 
Oo GC © 1 8 Counter — Seconds 
0 G6 0 tf } Counter— Minutes 
Oo @ 4 8 Bb Counter — Hours 
GC C 1. 8 Counter — Day of Week 
0 60 + 1 (0 Counter — Day of Month 
0 : Oo } 1 1 Counter — Month 
GO t+ 0 6G 8 RAM—Ten Thousandths of Seconds 
Oo + 0 @¢ | RAM—Hundredths and Tenths of Seconds 
O + G0 1 +8 RAM — Seconds 
O 1631 |} RAM— Minutes 
0 11 6 6 RAM —Hours 
O 4 | 0 | RAM — Day of Week 
Oo 4 + {1 +6 RAM — Day of Month 
0 1 1 1 1 RAM — Months 
+ 0 60 6c 8 interrupt Status Register 
1 0 0 8 } Interrupt Control Register 
1 0 G@ i OG Counters Reset 
y+ 0 Oi RAM Reset 
1 O 4 0 8g Status Bit 
1 0 + 0 } GO Command 
1 6 11 6 STANDBY INTERRUPT 
8. Test Mode 
Figure 5. 


Clock Address Codes (material courtesy of 
National Semiconductor Corporation) 


TIMELIST 


OPENFILE SAVETITLE FIRSTLINE PRINTLOOP 


LSA G6 until 
EOF 


Print 
Status Line of 
Text 


| ve 
Quit if Sa 
error 


Get time, 
Date info 


Pgm name 
as title 





Figure 6 
Structure Chart of the TIMELIST Program 
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seconds to zero. The clock chip keeps its time based on a 
24-hour count, so if the time is 7:15 pm, for example, then 
the entry is 19 hours, 15 minutes. The carriage return to 
set seconds to zero does a write-data to CLOCK +21 (the 
GO command, see Figure 5). This write pulse resets the 
thousandths, hundredths, tenths, units, and tens of sec- 
onds counters. In the SETTIM subroutine, note that I re- 
set the seconds (an early GO) before setting the minutes; 
this is because the clock chip will increment the minute 
counter upon GO if the seconds counter is greater than 
40. For example, if the time is almost 7:15 pm and I enter 
19 and 15 followed by <cr> to zero seconds, I might find 
the time erroneously set to 19:16; hence, the need to reset 
GO. 

In the program TIME, unlike the simpler CLOCKSET 
program, I wanted more than just bare numbers from the 
clock: I wanted the literal names for days and months. The 
subroutine NTOLIT makes the conversion from the clock’s 
packed BCD to a literal string. It does this by converting 
the number (say, 11 for November) to binary then index- 
ing through the list of literals until it reaches the eleventh 
one. Then it moves the word “November” in memory to 
the space reserved for the message to be printed. 

You can use TIME in two ways: either as a simple dis- 
play to the console or as a display plus an output to the 
printer. To get the display, type TIME. To get the printer 
output in addition to the console display, type TIME 
<text>. The additional letters will send the time and 
date information plus the <text> to the currently de- 
fined LST: device connected to the computer. This is one 
way of time/date-stamping a page before sending some 
special output to the printer. Because the print output is 
aligned toward the right-hand side of the page, you have 
space for only about 15 characters before the printer 
wraps around. I use the space to put in a filename or some 
other text identification. Another way I use this feature is 
to print a disk name as <text> then send a disk directory 
to the printer; I keep this directory listing with the disk so 
I have a dated record of its contents. 

For convenient time/date-stamping of a full program 


listing, I chose the approach in the structure chart shown in 
Figure 6 (page 63). This program is invoked by TIMELIST 
<filename>. First, the title line is printed in the format: 
time, date, program name. Then, after skipping several 
lines, the printout of the text of the program begins, with a 
total of 60 lines on each page. All of the printing is done in 
subroutine PRINTLOOP, and you can interrupt it anytime 
from the keyboard; that is, a control-S pauses and any 
keypress continues, unless the printing is not paused, in 
which case any keypress aborts the program. 

The clock-related aspects of this program are similar to 
TIME. The obvious difference is that a file must be opened, 
read, and printed. At the very beginning, then, because I 
used the 128 bytes between 80H and 100H for a disk buff- 
er area, it is necessary to move the stack to a safe place. 
Then the first subroutine, OPENFILE, either opens the file 
successfully or calls QUIT if it encounters a problem. On 
exit, the stack pointer is restored to its previous position. 

PRINTLOOP sends one character for each main loop 
within the subroutine. Before getting each new character, 
the program checks to see if a console break is present, to 
verify required spaces at the beginning of a line, and to 
determine if the maximum number of lines per page has 
been reached. The program as now assembled adds three 
spaces at the left margin for all printed text; this is be- 
cause I usually notebook-punch my programs and my 
Okidata 82A prints too closely to the left-hand margin. 
To change this margin setting, adjust the SKIP equate. 
Likewise, to change from 60 lines per page, modify the 
LPAGE equate. 

After getting a new byte by a call to GETNB, I check 
for the form-feed character and ignore it. To allow form 
feeds from the text, change the KEEPFF equate to TRUE. 
When accepting form feeds from the text, I disabled the 
line-counting within PRINTLOOP on the assumption that 
page length would have already been determined. 

Before actually printing the character, the program 
checks for the proper line length. This is necessary be- 
cause I skip several spaces at the left margin. If the text 
runs to 80 characters, but I’ve already printed three 


The real-time clock on a Vector 8800 V wire-wrap board. 
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Does your ISAM 


e-tree G)OaS, AMG 



















” ishere! 


Complete TEX82 Typesetting for your PC /XT or AT 








run on IBM, 
APPLE. DEG 

ancl AT&T 
GOmMPUCePSY 


yew only BUY 
if ONCE? 


2606 Johnson Drive 
Columbia MO 65203 


Circle no. 37 on reader service card. 


e Real, state-of-the-art typesetting capable of handling all 
mathematical and scientific material. 


e Produce work of this quality on your Epson printer. 
k a's 1 b's 


- % He) = fs dx(e) Ge ae yeh Bhs sb: 


P prime k+1 elements 
e Outperform professional typesetters with work of this quality 


from a QMS Lasergrafix. Sz 

nG(Z) — ee S,z* /k 

6 G(z)= ¢ 2) = exp( J ; )=- IIe / 
k>1 k>1 


e PCTpX includes INITEX, LaTEX macro package and manual, 
PCTRX macro package and manual. 

e PCTRX is a full implementation of Donald Knuth’s TeX and 
produces standard .DVI files. 

e PCTX: only $279. PCDOT dot-matrix printer driver (includes 
over 200 fonts): $100. (For IBM Graphics printer, Epson RX FX 


printers, Toshiba 134x 135x.) QMS Lasergrafix driver: $200. 


Include $3. shipping for each order. Calif. residents add sales tax. MasterCard, Visa accepted. 
Requires DOS 2.0 or better, 512K RAM, LOM hard disk. 





PERSONAL 
20 Sunnyside, Suite H, Mill Valley, CA 94941. 
(415) 388-8853. Telex 275611. 
INC TeX: American Mathematical Society. PCTpx: Personal TeX. Inc.. IBM-PC: IBM Corp.. QMS: QMS. Inc 
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NEW FEATURES 


(Free update for our early customers!) 

e Edit & Load multiple memory 
resident files. 

e Complete 8087 assembler 
mnemonics. 

e High level 8087 support. 


Full range transcendentals 
(tan, sin, cos, arctan, 
logs and exponentials) 


Data type conversion and 
1/O formatting. 

e High level interrupt support. 
Execute Forth werds from with- 
in machine code primitives. 

e 80186 Assembler extensions for 
Tandy 2000, etc. 

e Video/Graphics interface for 
Data General Desktop Model 10 


Fo RTH 


e Fully Optimized & Tested for: 
IBM-PC IBM-XT IBM-JR 
COMPAQ EAGLE-PC-2 
TANDY 2000 CORONA 
LEADING EDGE 


(Identical version runs on almost all 
MSDOS compatibles!) 


e Graphics & Text 
(including windowed scrolling) 


e Music - foreground and 
background 

includes multi-tasking example 
Includes Forth-79 and Forth-83 
File and/or Screen interfaces 
Segment Management Support 
Full megabyte - programs or 
data 


¢ Complete Assembler 
(interactive, easy to use & learn) 


e Compare 
BYTE Sieve Benchmark jan 83 
HS/FORTH 47sec BASIC 2000 sec 
w/AUTO-OPT 9sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 
FASTEST FORTH SYSTEM 
AVAILABLE. 
TWICE AS FAST AS OTHER 
FULL MEGABYTE FORTHS! 


(TEN TIMES FASTER WHEN USING AUTO-OPT!) 
HS/FORTH, complete system only: $250. 




















































week Visa Mastercard oe 
Add $10. shipping and handling 


HARVARD 
SOFTWORKS 


PO Box 69 
Springboro, Ohio 45066 
(513) 748-0390 
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spaces, then three characters will have to wrap around to 
another line on the printer. To maintain the left margin, I 
need to insert the usual spaces before beginning to print 
the wrap-around letters. 

If the character to be printed is a tab character (09), 
then TABTOSP does a conversion to spaces so that the 
printer lines up to every eighth column. The conversion is 
not simply to replace every tab with eight spaces: the pro- 
gram checks to see what the current column position is in 
relation to every eighth column then inserts just enough 
spaces to get the next eighth position. Thus, a tab posi- 
tions the printer to columns 9.°L7,.-25, 33; ands oni: 
Change the NRSPCS equate to the desired tab conversion 
if eight is not suitable. 

As with all programs, a number of modifications al- 
ways seem necessary. The CLOCKSET, TIME, and TIME- 
LIST programs are certainly not the final versions. Im- 
provements are always possible; it becomes an issue of 
whether the programs are “good enough to do the job” or 
must be revised. I chose to leave these three programs as 
they stand and go on to other more creative programs. 


One program is to display the current time on the con- | 


sole, but I have a wristwatch that displays time quite well. | 


Consider a “reminder” program to sound the console bell | 


at a certain time. Also consider how to keep tax records of 
business use of the computer: a program to LOGON and 
LOGOFF that records date, time on/off, and subject of 
computer use. This program should create a file suitable 
for use by a spreadsheet program for tax records. These 
programs and others using the interrupt features of the 
clock are the subject of a future article. 


Operation 

When first starting up the clock, set the proper time and 
date using CLOCKSET. Then run the TIME program to 
see that the time and date are being displayed properly. 
Also check the printing feature of TIME by appending a 
small text to the TIME invocation to see that the time and 
text go to the printer. Test run TIMELIST with a two- or 
three-page text file to see that it prints the first page with 
time and date then prints 60 lines on each of the following | 
pages. 


Conclusions 

The clock board has proven to be a useful addition to my 
computer system. I’ve found it especially convenient for 
dating disk directory prints, as well as for the normal 


dating of program printouts. Keeping the time and date L_ 


on my program listings has certainly improved my pro- 
gram filing system: now when I discover a long-lost paper, 
I know when it disappeared! 

I would like to thank our Bucknell Technician, Thomas 
J. Thul, Jr., for his help in laying out and constructing the 
clock circuit board. Program source code is available 
from the author on an 8-inch CP /M disk for $15 postpaid. 
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IEEE Standard 696-1983 compatible 


Hardware: " | 
— states) 


Operation to 6 MHz (using two wait 
Handshaking using RDY line (72) pulled low. _ 











until clock output data valid — 
DIP-switch selection of base address on any | 
_32-byte I/O port boundary, 32 ports required 
DIP-switch selection of vectored interrupt O 
through 7 for clock interrupts 100 ms 
to 1 month or RAM and counter compares 
DIP-switch selection of vectored interrupt O 
through 7 for RAM and counter compares _ 
Accuracy 0.01%, but generally b : 
sec/month -— _ 
Power requirement +8V < 200 mA during 
normal operation — 
Rechargeable battery backup — 
Construction using Vector 8800V and 
wire-wrap - 
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Calendar: day of week and month, month, year 
File-list utility with time/date header 
Clock time- and date-setting program 
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Fortran Scientific Subroutine Package 
Contains Approx. 100 Fortran Subroutines Covering: 


_ Matrix Storage and Operations 7. Time Series 
. Correlation and Regression 8. Nonparametric Statistics 


Oonh WN — 


. Design Analysis 
. Discriminant Analysis 10. Linear Analysis 
. Factor Analysis 
. Eigen Analysis 


9. Distribution Functions 


11. Polynomial Solutions 
12. Data Screening 


Sources Included 


$295.00 


i ES 


FORLIB-PLUS™ 


Contains three assembly coded LIBRARIES plus support, 


FORTRAN coded subroutines and DEMO programs. 


The three LIBRARIES contain support for GRAPHICS, 


COMMUNICATION, and FILE HANDLING/DISK SUPPORT. An 
additional feature within the graphics library is the capability of one 
fortran program calling another and passing data to it. Within the 
communication library. there are routines which will permit interrupt 
driven. buffered data to be received. With this capability, 9600 
BAUD communication is possible. The file handling library contains 
all the required software to be DOS 3.0 PATHNAME compatible. 


STRINGS & THINGS™ 
Support for CHARACTER MANIPULATION (string support), 


SHELL, BATCH, MUSIC, CMD LINE, and ENVIRON CTRL. 
























































$69.95 each 


inbes ALPHA 
prea cn ies We oe) (714) 894-6808 


California residents. please add 6% sales tax. 


Versions available for IBM Professional Fortran 
or MICROSOFT 3.2 Fortran 
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Poor Person Software 


Introduces 


Write-Hand-Man 


Desk accessories for CP/M 


Write-Hand-Man lets you take notes, check phone 
numbers, make appointments, and countless other tasks 
without leaving Wordstar, dBase, Multiplan, or any other 
application. Enter Write-Hand-Man with a single key- 
stroke and choose the program you want. When you 
leave Write-Hand-Man, your application continues 
normally. 


$49.95 plus tax delivers Write-Hand-Man and 4 
companion programs; Notepad, Phonebook, Calendar, 
and Termcomm. User written programs are easily added. 
All you need is M80 or some other LINK-80 compatible 
assembler. 


Other CP/M products available from Poor Person Software: 
Poor Person’s Spooler ($49.95), Poor Person’s Spelling Checker 
($29.95), Poor Person’s Spread Sheet ($29.95), Keyed Sequential 
Files ($39.95), Poor Person’s Menus ($29.95), aMAZEing Game 
($29.95), Window System ($29.95), Crossword Game ($39.95), 
Mailing Label Processor ($29.95). Shipping included. 


All products available on IBM 8 inch and Northstar 5 inch disks. Other 5 inch 
formats add $5 handling charge. No credit cards. 


Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/M is a registered trademark of Digital Research 


Circle no. 71 on reader service card. 


2 Megabyte SemiDisk! 





Have you been waiting on your slow floppy disk 
drives too long? SemiDisk Systems has a disk 
emulator for you! It'll put you in the fast lane, with 
ultra-fast data transfer, huge storage capacity, conve- 
nient battery backup, and a handy print spooler. 


Have you been waiting for a SemiDisk big enough 
to handle your large applications programs, files, and 
databases - all at once? Your wait is over. SemiDisk 
Systems is now delivering 2 megabytes of disk storage 
on a single board! 


512k, 1Meg and 2Megabyte SemiDisks are available 
for S-100 computers, (including the H/Z-100 operat- 
ing under Z-DOS), IBM PC, XT, & AT, the TRS-80 Mod- 
els II, 12, & 16, and the Epson QX-10. Once you ve 
tried a SemiDisk you'll know why we say. . . 

















Someday you'll get a SemiDisk. 
Until then, you'll just have to... ......-5- wait. 


512K Mbyte 2Mbyte 


SemiDisk I, S-100 $995 $1795 
SemiDisk II, S-100 $1295 $2095 $2549 
IBM PC, XT, AT $945 $1795 $2499 
QX-10,QX-16 $799 $2499 
TRS-80 I1,12,16 $995 $1795 $2499 
Battery Backup Unit $150 





SEMIDISK 


SemiDisk Systems, Inc. 
P.O. Box GG, Beaverton, Oregon 97075 


503-642-3100 


Call 503-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha, all SemiDisk-equipped 
computer bulletin boards (300/1200 baud). SemiDisk, SemiSpool trademarks of SemiDisk Systems. 
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Real- Time Cl OC k (Listing Continued, text begins on page 56) 


Listing One 
; CLOCKSET Program to set date & time of real-tima& 
; Program by Alan D. Wilcox 
: 6 January 1985 
0100 ORG 100H 
OOAO = CLOCK EQU OAOH ; Clock base address 
0000 = FALSE EQU O 
OOFF = TRUE EQU OFFH 
0005 = BDOS EQU 5H ; BDOS entry point 
0001 = CONSIN EQU 1 ; Console input 
0002 = CONSOUT EQU 2 ; Console output 
0009 = PRINTST EQU 9 ; Print string function 
OOOB = GETSTAT EQU 11 ; Console status | 
OOOA = LF EQU OAH ; Line Feed 
OOOD = CR EQU ODH ; Carriage Return 
001B = ESC EQU 1BH ; Escape 
; ***** MAIN PROGRAM ***** 
er 
a: 
0100 113202 START: LXI D,GREET 
0103 CD1302 CALL PRINTIT 
O106 1136502 LXI D,DATESET ; Set the date? 
0109 CD1302 CALL PRINTIT 
010C CD1BO2 CALL GETANS ; Get answer 
O10F FEFF CPI TRUE 
01131 .CC2901 CZ SETDATE 
0114 117F02 LXI D,TIMESET ; Set the time? | 
O117 CD1i302 CALL PRINTIT 
011A CD1BO02 CALL GETANS ; Get answer 
011D FEFF CPI TRUE 
011F CC6401 CZ SETTIME 
0122 119F03 LXI D,CRLF 
0125 CD1302 CALL PRINTIT 
0128 C9 DONE: RET ; Return to CP/M 
: * 
: ok 
; ***** SUBR SETDATE ***** 
: Set the current date 
0129 119902 SETDATE: LXI DD. DAY ; What day of week? 
012C CD1302 CALL PRINTIT 
012F CDDBO1 CALL GETBCD ; Get-7Tt and. -stsere 
OIS2 DSAS OUT CLOCK+5 7+: ih ei k counter 
0134 110402 LXI D,DATE > What: Gate is. it? 
0137 CD1302 CALL PRINTIT 
013A CDDBO1 CALL GETBCD -; Get it and store 
013D D3A6 OUT CLOCK+6 - in clk counter 
O13F 11E002 LXI D,MONTH ; What month is it? 
0142 CD1302 CALL PRINTIT 
0145 CDDBO1 CALL GETBCD » Get, dt and. stare 
0148 D3A7 OUT CLOCK+7 7. ain elke “counter 
O14A 11FCO2 LXI D, YEAR ; And the year? 
014D CD1302 CALL PRINTIT 
(Continued on page 70) 
68 


Dr. Dobb’s Journal, July 1985 








y 
| 


Pies 





all 


BAlisih pg, The Tools 
oS You Need 
To C You Thru. 


Now the sa:d%au Applications Programmers Toolkit provides 
everything you need to increase your C programming productivity. 


APT" features include: 
@ COMPLETE SOURCE CODE (over 5000 lines!) 
@ File handling with direct & keyed access 
@ Screen and Report Generators, with full screen handling for your programs 
@ Generic Terminal Driver for portable code 
® String math functions, and string manipulation routines 
@ Reference Manual on Disk (over 50 pages) 
© Tutorial Manual (over 25 pages) with Source for Mailing List Manager 
@ A host of useful Utilities, Database and File Editors 
@ Available for Lattice C, Mark Williams C, DeSmet C, BDS C, others. 


CP/MAC gives you CP/M-80 programs the way you want, 
and the way the Macintosh™ was meant to be used. They 
are on the same disks with your other Macintosh files. 
You can open and start them the same ways you open 
paintings or other Macintosh documents. And graphic 
controls and cues help you while they are running - 
including a continuous display of disk availability. 





CP/MAC works with hard disks and RAM disks. With a 
512k Mac, CP/MAC gives you Z80 emulation - not 
available anywhere else. And CP/MAC transfers 
programs and any other files from CP/M computers. 
CP/MAC is a quality product and shipping now. At a price 
you can afford - $135. Order by phone (714-953-8985) 


Also Available: C‘STARTER Toolkit, great for learning C!! Includes: Customized 
APT, DeSmet C Compiler, and “Programming in C on the IBM-PC” (200 pages) 


APT/MS-DOS versions..........-.--- sees eee eee teens $495 
or mail to: LOGIQUE APT/DeSmet C version ............. 0c eenc cece eeeeeeees $395 
=e APT/BDS C version ..... 0.2.5... ccc cc ete cn ee ecnensnwens $395 

30100 Town Center Dr. “O" Suite 198 C-Starter (binary APT, DeSmet Compiler and Book)......... $295 

Laguna Niguel, Ca. 976/77 APU Miia Only 5s ood dv. ans 0 iS aT hey pode ee eRe $ 50 


**Detailed Brochures on request** 
*Manual Cost will be applied if APT purchased within 
30 days ($10 re-stocking charge.) U.S. funds only, please. 
/C Ware, Cl 


Trademarks: MS-DOS/Microsoft, Lattice C/Lattice, Inc., MWC86/Mark Williams Co., DeSmet C. C86/Computer Innovations, Inc., BDS C/BD Software, 
DR-C/Digital Research, WizardWare, APT. C-Starter/Shaw « American Technologies 


Call (502) 583-5527 
Ask for APT” or C-Starter, or Send Check to: 
Shaw +: American Technologies 
ARR 830 South Second St. - Box 648 
Lee Louisville, KY 40201, USA 
ns ea ee ae Sank er rennin 


MC/VISA or COD ok. Or ask your dealer. 


8080 emulation with about 42k TPA on a 128k Macintosh. Z80 emulation 
with 63k TPA ona 512k Macintosh. CP/M 2.2 BDOS and BIOS calls. LST 
and PUN output to the printer, RDR and CON input from the keyboard, 
and CON outputs to the CP/MAC window. ADM-3A emulation with 
reverse video and line insert/delete. 

Macintosh is a trademark licensed to Apple Computer, Inc. CP/M is a registered 
trademark of Digital Research, Inc. CP/MAC is a trademark of Logique. 
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DATESTAMPER* has the answers 


When did we 
Cre. _—_ print that letter? 
Tapa gs: 
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DateStamper™ keeps your CP/M computer up-to-date! 
e avoid erasing the wrong file e keep dated tax log of computer use 
e back-up files by date and time e simplify disk housekeeping chores 


OPERATION: DateStamper extends CP/M 2.2 to automatically record date and time a file is created, read or 
modified. DateStamper reads the exact time from the real-time clock, if you have one; otherwise, it records the order in 
which you use files. Disks prepared for datestamping are fully compatible with standard CP/M. 
INSTALLATION: Default (relative-clock) mode is automatic. Configurable for any real-time clock, with pre- 
assembled code supplied for all popular models. Loads automatically at power-on. 

UTILITIES: Enhanced SuperDirectory * Powerful, all-function DATSWEEP file-management program with date and 
time tagging ® Installation and configuration utilities 

PERFORMANCE: Automatic. Efficient. Versatile. Compatible. 


Requires CP/M 2.2. Uses less than 1K memory. Real-time clock is optional. 


When ordering please specify format 


8” SSSD, Kaypro, Osborne Formats ........... $49 Write or call for further information 
For other formats (sorry, no 96 TPI) add $5. 
Shipping and handling ............eeeeee reer $3 
California residents add 6% sales tax : 
MasterCard and Visa accepted (Plu Perfect Systems) 
Specialized versions of this and other software available for the Kaypro. BOX 1494 © IDYLLWILD, CA 92349 ° 714-659-4432 






CP/M is a registered trademark of Digital Research, Inc. 
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Real- Time Cloc k (Listing Continued, text begins on page 56) 


Listing One 


0150 CDDBO1 
0153 D3AQ9 


0155 118A03 
0158 CD1302 
015B CD1B02 
O15E -FEFF 

0160 CA2901 


0163 C9 


0164 CD9CO01 


0167 113503 
O16A CD1302 
016D CDDBO1 
0170 D3A4 


Ot72. 115203 
0175 CD1302 
0178 D3B5 
017A CDDBO1 
017D D3A3 


O17F 116E03 
0182 CD1302 
0185 CDOBO2 
0188 D3B5 


018A CD9CO1 


018D 118A03 
0190 CD1302 
0193 CD1BO02 
0196 FEFF 

0198 CA6401 


019B C9 


019C 111803 
O19F CD1302 


O1A2 DBA4 
O1A4 CDBCO1 
O1A7 3E3A 
O1A9 CDO402 


O1AC DBA3 
O1AE CDBCO1 
01B1 3E3A 
0O1B3 CD0O402 


O1B6 DBA2 
01B8 CDBCOl1 


O1BB C9 
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=e 


GC) ~- ss se we we 


=e 


o- we ue Me 


se =e se =e =e =e 


*** KX 


ETTIME: 


*XKX XX 


ISPLAY: 


*** KX 


CALL 
OUT 


LXI 
CALL 
CALL 
CPI 
JZ 


RET 


GETBCD 
CLOCK+9 


D,AGAIN 
PRINTIT 
GETANS 
TRUE 
SETDATE 


SUBR SETTIME ***** 


Set the current time 


CALL 


LXI 
CALL 
CALL 
OUT 


LXI 
CALL 
OUT 
CALL 
OUT 


LXI 
CALL 
CALL 
OUT 


CALL 


LXI 
CALL 
CALL 
CPI 
JZ 


RET 


DISPLAY 


D,SETHR 
PRINTIT 
GETBCD 

CLOCK+4 


D,SETMIN 
PRINTIT 
CLOCK+21 
GETBCD 
CLOCK+3 


D,SETSEC 
PRINTIT 
INCHAR 
CLOCK+21 


DISPLAY 


D,AGAIN 
PRINTIT 
GETANS 
TRUE 
SETTIME 


SUBR DISPLAY ***** 


Displays current time 


LXI 
CALL 


IN 
CALL 
MVI 
CALL 


IN 
CALL 
MVI 
CALL 


IN 
CALL 


RET 


D,TMSG 
PRINTIT 


CLOCK+4 
PRHEX 
me, os 
PCHAR 
CLOCK+3 
PRHEX 
Rots 
PCHAR 
CLOCK+2 
PRHEX 


SUBR PRHEX ***** 


Get it and store 
in clock RAM 


Do this over again? 
Get answer 


126, ocit: 


Show the time at start 
Set-hrs message 


Get 2 ASCII, convert to BCD 
Put hours into clock cnter 


Set-min message 
Reset seconds 
Get 2 ASCII, convert to BCD 


Put mins into clock counter 


Set-seconds message 


Get key-press 
"GO" command zero seconds 


Show the results 


Ask to do again 


Yes, do it again 


Time is 


Get hours from clock 
Print hours 


Get minutes from clock 
Print minutes 


Get seconds 
Print seconds 


Converts binary value into two ASCII-hex characters 
and prints on console 


(Continued on page 72) 
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Add EDITING 
to your 


Software 
with 
CSE Run-Time’ 


Your program can include all or a portion 
of the C Screen Editor (CSE). 


CSE includes all of the basics of full 
screen editing plus source in C for only 
$75. For only $100 more get CSE Run- 
Time to cover the first 50 copies that you 
distribute. 

Use capabilities like Full cursor control, 
block move, insert, search/replace or 
others. Portability is high for OSes, ter- 
minals, and source code. 

Call for the ‘‘CSE Technical Description’ 
and for licensing terms and restrictions. 
Full Refund if » ; 

not satisfied in c>olution 
first 30 days. < ystems 


Call 800-821-2492 335-D Washington Street 
Norwell, MA 0206) 
617-659-1571 























helps Develop \\ 
and Test Lattice C Programs 





Reliably Cuts Both — 
= Compile times (by 15% to 55%) 
m@ Testing time (by 12% to 37%) 


“Automatic” support for new libraries by reading the .OBJ files 
makes support for new libraries quick and simple. 


FASTER C keeps the Lattice C library and any other functions you 
choose in memory. It manages a jump table to replace the LINKER 
and immediately execute your functions. You can also CALL 
active functions interactively to speed your program debugging. 
It includes many options for configuration and control. 


ONLY $95. 
CALL TOLL FREE 
800-821-2492 


for “Technical Description” or to order. 
FASTER C is a trademark of Solution Systems 


AVAILABLE FOR PC-DOS, IBM-AT, 
AND ANY 256K MSDOS SYSTEM. 


Solution 
TM 
Systems 
335-D Washington St., Norwell, Mass. 02061 
617-659-1571 





Circle no. 75 on reader service card. 


Circle no. 93 on reader service card. 


PROLOG-86— 


Become Familiar in One Evening 


Thorough tutorials are designed to help learn the PROLOG 
language quickly. The interactive PROLOG-86 Interpreter gives 
immediate feedback. In a few hours you will begin to feel comfort- 
able with it. In a few days you are likely to know enough to modify 
some of the more sophisticated sample programs. 


Sample Programs are Included like: 


@ an EXPERT SYSTEM 


@ a NATURAL LANGUAGE INTERFACE 
(it generates a dBASE II “DISPLAY” command) 


@ a GAME (it takes less than 1 page of PROLOG-86) 












DIFF and CMP - for “intelligent” file comparisons. 
XREF — cross references variables by function and line. 
C Flow Chart-— shows what functions call each other. 
C Beautifier — make source more regular and readabl!s. 
GREP -— search for sophisticated patterns in text. 
There are several other utilities that help with converting 
from one C compiler to another and with printing 
programs. 

C Helperis written in portable C and includes both full 


source code and executable files > fs 
for $135 for MS-DOS, IBM AT Solution 
Systems” 


CPM-80 or CPM-86. Use 
VISA, Master Card or COD. 

335,Washington Street 
Norwell, MA 02061 


Call: 800-821-2492 
617-659-1571 





Circle no. 94 on reader service card. 


PROTOTYPE Ideas and Applications QUICKLY. 


Serious development of experimental systems and prototypes is 
practical with the full syntax of PROLOG-86. 

1 or 2 pages of PROLOG is often equivalent to 10 or 15 pages in 
“C” or PASCAL. It is a different way of thinking. 

Describe the FACTS and RULES without concern for what the 
computer will have to do. Maybe you will rewrite in another 
programming language when you are done. 

Programming Experience is not required but a logical mind is. 
PROLOG-86 supports the de facto STANDARD established in 
“Programming in Prolog.” 

AVAILABILITY: PROLOG-86 runs on MSDOS, PCDOS, IBM AT or 
CPM-86 machines. We provide most formats. The price of 


PROLOG-86 is: 
Only $125 Solution 


Full Refund if not Systems 


satisfied during 
first 30 days. 


800-821-2492 




















335-D Washington Street 
Norwell, MA 02061 


617-659-1571 





Circle no. 95 on reader service card. 





Real- Time Cloc k (Listing Continued, text begins on page 56) 








Listing One 
O1BC F5 PRHEX: PUSH PSW 
O1BD OF RRC ; Put 4 MSB's into 4 LSB's 
O1BE OF RRC 
O1BF OF RRC 
01CO OF RRC 
01C1 CDC901 CALL PRNIB ; Prnt hex equiv to 4 MSB's 
01C4 Fil POP PSW 
01C5 CDC901 CALL PRNIB ; Prnt hex equiv to 4 LSB's 
01C8 C9 RET 

. * * * ** SUBR PRNIB **KX KK X 

; Prints a nibble of Reg A 
01C9 E60F PRNIB: ANI OFH ; Mask out top 4 bits 
01CB FEOA CPI 10 ; Is it number or letter? 
01CD D2D501 JNC LETR ; Must be a letter if jump. 
01D0O C630 ADI “GC ; Add offset to make ASCII 
01D2 C3D701 JMP PRNT 
01D5 C637 LETR: ADI ‘A’ - 10 ; Add offset to make binary 

; into ASCII letter 

0O1D7 CD0402 PRNT: CALL PCHAR ; Send ASCII to console 
O1DA C9 RET 

* KK KK SUBR GETBCD * * * * * 

; Gets 2 ASCII characters, converts them to packed BCD 

: EXIT: A = 2 BCD characters 
01DB CDOBO2 GETBCD: CALL INCHAR ; Get character 
O1DE FE30 CPI “a 
O1EO DADBO1 JC GETBCD ; Ignore char if < ASCII: 0 
O1E3 FE3A CPI '9t+1 
O1E5 D2DB01 JNC GETBCD ; £Qnore char. if > ACELTS 
O1E8 D630 SUI ce ; Make ASCII into binary 
O1EA E60F ANI OFH ; Mask out 4 MSB's 
O1EC 07 RLC 
O1ED 07 RLC 
O1EE 07 RLC 
O1EF O7 RLC ; Put into MSB position 
O1FO 47 MOV B,A ; and save in B 
O1F1 CDOBO2 LOBYTE: CALL INCHAR ; Get 2nd character 
O1F4 FE30O CPI oo 
O1F6 DAF1i01 LC LOBYTE 
O1F9 FE3A CPI 'OQ'+1 
O1FB D2F101 JNC LOBYTE 
O1FE D630 SUI ‘oO! ; Make ASCII into binary. 
0200 E60F ANI OFH 
0202 80 ADD B ; Combine both BCD char in A. 
0203 C9 RET 

* KK KK SUBR PCHAR **E KK 

: Prints Reg A to console 
0204 OEO2 PCHAR: MVI C,CONSOUT 
O206 SF MOV E,A 
0207 CDO500 CALL BDOS 
O20A C9 RET 

: **¥*** SUBR INCHAR **¥*** 

: Reg A gets ASCII value from keyboard 
O20B C5 INCHAR: PUSH B ; Have char saved in B 
O20C OEO1 MVI C,CONSIN 

(Continued on page 74) 
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THE WORLD'S FASTEST Ua 
MOST POWERFUL 8080 
RELOCATING MACRO 


ASSEMBLER 


This is what they said about 
Z80ASM, our Z80 assembler. Now 
the same features and performance 
are available in our Intel Mnemonic 
product. SLRMAC is compatible 
with M80 in .8080 mode, with many 
extensions. Too many features to 
list here. 


To order or to find out more 
about our complete family of 
development tools, call or write: 


_S LR__Systems— 


1622 N. Main St., Butler, PA 16001 
(800) 833-3061, (412) 282-0864 
Telex 559215 SLR SYS 


c.0.D., Check or 
me Money Order Accepted. 


Add $3 shipping. 
Z80 CP/M compatibility required. 





ony $449 -25 
AT THIS PRICE, SHOULD YOU BE WASTING 
YOUR TIME USING SOMETHING ELSE”? 





“. a breath of fresh air. .” 
Computer Language, Feb. 85 
“. in two words, I'd say speed & 
flexibility”, 
Edward Joyce, Nov. 84 
Microcomputing 


NORMALIZED PERFORMANCE 
Assemble 
ZCPR3 
to create a 
HEX file. 


1.00 SLRMAC 
1.00 SLRMAC 


1:10 4:24 5:19 705 :41 :42 
2Mhz 8Mhz 
8"SS/SD RamDisk 


Circle no. 78 on reader service card. 


Embedded 


Application Support 
Software 


FPAC/DPAC™ 


Floating Point Libraries 


e IEEE Single & Double Precision Format 


e Source Assembly 
e Complete Math Functions 
e Data Conversion Procedures 


8086 
USX™ 


Multi-Tasking Executives 


Real-Time and ROMable 
Dynamic Task Management 
Priority Task Scheduling 
Memory Management 


United States Software Corporation 


5470 N.W. Innisbrook Place e Portland, Oregon 97229 e (503) 645-5043 





Circle no. 91 on reader service card. 














The Best Source 
Debugger for C 








Interactive testing: enter any C 
expression, statement, or function call, 
and it is immediately executed and the 
result displayed. Direct execution 
allows fast and thorough testing, 
makes learning C a snap. 


Run-time checking: execution stops 
upon exception, and source code dis- 
played. Exceptions include array refer- 
ence bounds, stack overflow arithmetic 
or floating point error, etc. Pointers are 
checked for null or out of range values. 


Breakpoints: any number of break- 
points can be set anywhere in your 
program; breakpoints are set with screen 
editor, not by line numbers. Breakpoints 
may be conditional. Single-step by 
statement. Interrupt execution from 
keyboard. Breakpoint, exception, or 
interruption is always shown with source 
code. Examine and modify data, look 
at stack history. Even change your pro- 
gram and then resume execution! 
Lint-like Compile-time checking: 
argument number and sizes are checked 
for consistency. Never mismatch source 
and object code. 


The best feature of all: the fastest C 
interpreter is right there when you're 
debugging. Make changes in seconds 
with the integrated screen editor. Test 
the changes immediately, running your 
program at compiled speed. Save source 
code for your favorite compiler, or make 
stand-alone executable programs. Noth- 
ing else is needed. Instant-C is the 
fastest way to get working, fully 
debugged C programs available 
today. 






































































“We sincerely feel that Instant-C can have a 
major positive impact on programmer produc- 
tivity’’ Computer Language, Feb. 85, pp. 82-83. 













Instant-C is only $495. Money back 
for any reason in first 31 days. 





Rational 
Systems, Inc. 


(617) 653-6194 
P.O. Box 480 
Natick, MA 07160 






Circle no. 79 on reader service card. 
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R eal- Time G loc k (Listing Continued, text begins on page 56) 








Listing One 
O20E CDO500 CALL BDOS 
0211.:C1 POP B 
0212 C9 RET 
; R*¥SE* SUBR PRINTIT ***** 
; ENTRY: DE = Start address of string 
0213 F5 PRINTIT: PUSH PSW 
0214 OEO9 MVI C,PRINTST 
0216 CDO500 CALL BDOS ; Print string to console 
0219 Fl POP PSW 
O21A C9 RET 
* * KK XK SUBR GETANS * KK * 
: Ask question, then call this subroutine for answer. 
j Assume default answer is NO. 
: EXIT: A = True = FF if YES 
; A = False= 0 if NO 
021B OEO1 GETANS: MVI C,CONSIN 
021D CDO500 CALL BDOS ; Get console input 
0220 FE59 CPI hc 
0222 CA2F02 IZ ENDTRU 
0225 FE79 CPI ry? 
0227 CA2F02 JZ ENDTRU 
022A 3E00 MVI A,FALSE ; Not Y or y. Assume NO. 
8220 C33102 JMP GOTANS 
O22F 3EFF ENDTRU: MVI A, TRUE 
0231 C9 GOTANS: RET 
; ***** CONSOLE MESSAGES ***¥** 
0232 ODOA50726F GREET: DB CR,LF,'Program to set DATE & TIME of ! 
0252 7265616C2D DB ‘real-time clock.',LF,CR,'$'! 
0265 ODOAOA5365 DATESET: DB CR,LF,LF,'Set the date? <N> --> z= 
O27F ODOAOA5365 TIMESET: DB CR,LF,LF,'Set the time? <N> --> §! 
0299 ODOAOA5375 DAY: DB CR,LF,LF,'Sunday = 01.'! 
O2A8 ODOA456E74 DB CR,LF,'Enter day 01 to 07. --> §! 
O02C4 ODOA456E74 DATE: DB CR,LF,'Enter date 01 to 31 --> $! 
O2EO ODOA456E74 MONTH: DB CR,LF,'Enter month 01 to 12 --> §! 
O2FC ODOA456E74 YEAR: DB CR,LF,'Enter year 84 to 99 --> $§! 
0318 ODOAOA4872 TMSG: DB CR,LF,LF,'Hrs : Min : Sec now --> §'! 
0335 ODOAOA496E SETHR: DB CR,LF,LF,'Input HRs 00 to 23 raeaat ates 
0352 ODOA496E70 SETMIN: DB CR,LF,'Input Min 00 to 59 ——>. §' 
O36E ODOA507265 SETSEC: DB CR,LF,'Press <cr> to zero sec...$' 
O38A ODOAOA446F AGAIN: DB CR,LF,LF,'Do over? <N> ... §! 
O39F ODOA24 CRLF: DB CR EF.;.' 5" 
O3A2 END End Listing One 


Listing Two 


; TIME Display time and date of real-time clock 


Program by Alan D. Wilcox 
18 December 1984 


Invoke by A>TIME Output to Console 
A>TIME <text> Output to Console & LST: 


=e =e =e me =e =e 
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; (List time & text) 


0100 ORG 100H 

OOAO = CLOCK EQU OAOH ; Clock base address 
0005 = BDOS EQU 5H - BDOS entry point 

0080 = BUFF EQU 80H ; Buffer 

0005 = LISTOUT EQU 5 ; List output 

0009 = PRINTST EQU 9 ; Print string function 
OOOA = LF EQU OAH ; Line Feed 

OOOD = CR EQU ODH ; Carriage Return 

0O01B = ESC EQU 1BH ; Escape 


***** MAIN PROGRAM ***** 


* 
* 


=e =e se FO 


Read current time and save in memory 


0100 DBA4 GETIME: IN CLOCK+4 ; Get hours from clock cntr 
0102 11D701 LXI D,HOURS 

0105 CDé6DO1 CALL BCDTOASC - Convert to ASCII & save 
0108 DBA3 IN CLOCK+3 ; Get minutes from clk cntr 
O10A 11DA01 LXI D,MINUTES 

010D CD6DO1 CALL BCDTOASC >; Convert 

0110 DBA2 IN CLOCK+2 ; Get seconds 

0112 11DD01 LXI D,SECONDS 

0115 CD6D01 CALL BCDTOASC 


; Read day of week and save literal equiv. in memory 


0118 DBAS GETDAY: IN CLOCK+5 

011A 11E201 LXI D,DAY - Where to save the result 
011D 211302 LXI H, LITDAY : Location of literal weekday 
0120 CD7FO1 CALL NTOLIT - Convert number to literal 


; Read date and save in memory 


0123 DBA6 GETDATE:IN CLOCK+6 
0125 11EEO1 LXI D,DATE ; Where to save result 
0128 CD6DO01 CALL BCDTOASC ; Convert to ASCII and save 


; Read month and save literal equivalent in memory 


012B DBA7 GETMON: IN CLOCK+7 

012D 11F101 LXI D,MONTH . Where to save result 

0130 215902 LXI H, LITMON ; Location of literal months 
0133 CD7FO1 CALL NTOLIT - Convert to literal 


: Read year from clock RAM & save in memory 


0136 DBAS GETYR: IN CLOCK+9 
0138 11FDO0O1 LXI D,YEAR : Where to save result 
013B CD6DO0O1 CALL BCDTOASC ; Convert to ASCII and save 


; Send time message to console 


O13E 11CE0O1 CONSL: LXI D,MSGL ; DE gets adr of message 
0141 OEOQ MVI C,PRINTST 
0143 CDO500 CALL BDOS - Print string to console 


: Send time msg to printer if cmd string required it 


0146 3A8000 PRINT: LDA BUFF - Was cmd 'TIME <text>' 
0149 FEOO CPI 0 - Done if nothing there 
014B CA6COl1 ame DONE 

O14E 4F MOV C,A - Put buffer count in C 
O14F 218100 LXI H, BUFFti ; HL is source of text 

0152 110102 LXI D, TEXT ; DE is destin for text 
0155 7E MOVETXT: MOV A,M ; Get byte 

0156 12 STAX D >; Save it 


(Continued on next page) 
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R eal- Time Cl OC k (Listing Continued, text begins on page 56) 
Listing Two 


6157.23 INX H 

0158 13 INX D 

0159 OD DCR C 

O15A C25501 JINZ MOVETXT ; De Until ¢ 16°60 
015D 3E24 MVI A,'S' ; End-text marker 
OLTSF 12 STAX D 

0160 21BD0O1 LEZ H,MSGR ; Go ahead to printer 
0263 CDATO1 CALL LISTIT 

0166 21BA0O1 LXI H, CRLF ; Finish the line 
0169 CDA701 CALE LISTIT 

016C C9 DONE: RET ; Return to CP/M 


***** SUBR BCDTOASC ***** 


: Converts binary value into two ASCII-hex characters 


; ENTRY: Reg A 2 packed-BCD characters 


; DE Adr of where to store ASCII answers 
; EXIT: (DE) = MS char 
: (DE+1) = LS char 
BCDTOASC: 
OT6D F5 PUSH PSW 
O16E OF RRC ; Put 4 MSB's into 4 LSB's 
O16F OF RRC 
0170 OF RRC 
0171. 0F RRC 
0172 E60F ANI OFH ; Mask out top 4 bits 
0174 C630 ADI ‘co ‘ ; Add offset to make ASCII 
O176..32 STAX D ; Save the result 
O17? Ft POP PSW ; Get the next character 
0178 E60F ANI OFH 
017A C630 ADI st ; Make ASCII 
017C 13 INX D 
017D 12 STAX D ; Save it in next memory loc. 
O17E C9 RET 


* * KK * SUBR NTOLIT ** KX * 


: Converts packed-BCD number (1 to 12) to its equiv 
: literal string and saves in specified memory. 


: ENTRY: A = 2 packed-BCD numbers from clock 
; DE = Adr of where to store literal results 
: HL = Pntr to 10-char literal strings 
O17F 47 NTOLIT: MOV B,A ; Save data 
0180 E610 ANI 00010000B ; See if have tens digit 
0182 CA8BO1 Jide SMALLNR ; Jump if not 
0185 78 MOV A,B 
0186 C60A ADI 10 ; Add 10 to low nibble so 
0188 C38CO1 JMP BINARY ; it's binary now. 
018B 78 SMALLNR: MOV A,B 
018C E60F BINARY: ANI OFH ; Mask off top nibble 
O18E D601 SUI 1 ; Make number O to 11 max 
0190 CA9BO1 JZ MOVE ; At first already 
0193 010A00 LXI B. 1G ; 10 literals in word 
0196 O93 NEXT: DAD B ; Add it to HL for next word 
0197 3D DCR A ; until get to proper one. 
0198 C29601 JINZ NEXT 


(Continued on page 78) 
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NOW 


for Microsoft 
C version 3.0 the 


/source debugger 
for lattice C 


Your time and convenience come 

first! The MSD C Debugger” is the last, 
and perhaps final, word in programming 
assistance for Lattice C users. C Debugger 
produces a high level view of C programs 
via function names, line numbers, variable 
names and C data types, plus a low-level view 
of machine addresses and instructions for 
testing assembler language functions. 


More features include: 

e All documentation is prepared for 
programmers. 

¢ Online help screen throughout the 
process. 

¢ Capability to single step 
through your program. 

¢ Set break points, examine registers and 
variables. 


$165.00 +$3.50 shipping 













































To order, call or write: 
MICRO-SOFTWARE DEVELOPERS, INC. 
2141/2 W. Main St. * St. Charles, IL 60174 
312/377-5151 


Lattice C is a trademark of Lattice, Inc. 
Microsoft is a trademark of Microsoft Corp. 


Circle no. 134 on reader service card. 








Dr. Dobb's journal 


Subscription 
Problems? 


No Problem! 





Give us a call and we'll straighten it 
out. Today. 


Outside California 
CALL TOLL FREE: 800-321-3333 


Inside California 
CALL: 619-485-9623 or 566-6947 

















Whether you program on the Macintosh, 
| the IBM PC, an Apple II series, a CP/M 


system, or the Commodore 64, your pro- 


@' 
Cc => gram will run unchanged on all the rest. If 
“ ~-1™ you write for yourself, MasterFORTH will 
protect your investment. If you 
write for others, it will expand 
your marketplace. 
d MasterFORTH is a state-of-the-art imple- 


mentation of the Forth computer language. 
Forth is interactive - you have immediate 
™ feedback as you program, every step of the 
way. Forth is fast, too, and you can use its ge 
built-in macro assembler to make it even 
faster. MasterFORTH’s relocatable utilities, 
transient definitions, and headerless code 
let you pack a lot more program into your memory. The 
resident debugger lets you decompile, breakpoint, and 
trace your way through most 
CP/M programming problems. A string 
™ package, file interface, and 
full screen editor are all standard features. 
MasterFORTH exactly matches the Forth-83 Stan- 
dard dialect described in Mastering Forth by Anderson 
and Tracy (Brady, 1984). The standard package in- 
cludes the book and over 100 pages of supplemen- 
tary documentation. 








12077 Wilshire Bivd., #506 


Circle no. 53 on reader service card. 
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R eal = Time C, / OC k (Listing Continued, text begins on page 56) 
Listing Two 


019B 


O19E 


O19F 
01A0 
O1A1 
O1A2 
01A3 


01A6 


O1A7 
01A8 
O1AA 
O1AD 
O1AE 
O1AF 
O1B1 
O1B4 
01B5 
O1B6 
01B9 


O1BA 


O1BD 
01CC 
O1CE 
01D7 
01D9 
O1DA 
01DC 
O1DD 
O1DF 
O1E2 
O1EC 
O1EE 
O1FO 
O1F1 
O1FB 
O1FD 
O1FF 
0201 
0210 


0213 
021D 
0227 
0231 
023B 
0245 
O24F 


0259 


0263 
O026D 


78 


010A00 


C29E01 


C9 


C3A701 
C9 


ODOA24 


2020202020 
2020 
2020202020 


3A 

3A 
202020 
2020 
20 
3139 


2020 
2020202020 
ODOA24 


53756E6461 
4D6F6E6461 
5475657364 
5765646E65 
5468757273 
4672696461 
5361747572 


4A616E7561 
4665627275 
4D61726368 


MOVE: LXI B,10 
MOVDAT: MOV A,M 

STAX D 

INX D 

INX H 

DCR C 

JINZ MOVDAT 

RET 
; ¥***** SUBR LISTIT ***** 
: Lists to printer until 
; ENTRY: HL = 
LisTiT:: Mov A,M 

CPI 3° 

oe LISTEND 

PUSH H 

MOV E,A 

MVI CC; LiIStTouT 

CALL BDOS 

POP H 

INX H 

JMP LISTIT 


LISTEND: RET 


**¥*** MESSAGE AREA ***** 


CRLF: DB CR GE * S$" 
‘MSGR: DB 

DB ! ' 
MSGL: DB ; 
HOURS: DS 2 

DB ! ' 
MINUTES: DS 2 

DB I ' 

SECONDS: DS a 

DB { ' 
DAY: DS 10 

DB ' t 
DATE: DS 2 

DB ! ' 
MONTH: DS 10 

DB roo? 
YEAR: DS 2 

DB ' { 
TEXT: DB : 

DB CR,LF,'$' 


: *¥XRKKX LITERALS ** KK xX 


; Pack with NULLs for 


LITDAY: 


DB 'Sunday,',0O 
DB ‘Monday, ',0 
DB 'Tuesday,', 
DB 'Wednesday, 
DB ‘Thursday, ' 
DB 'Friday,',0 
DB ‘Saturday, ' 
LITMON: DB ‘January ', 
DB 'February ' 
DB ‘March ', 


0,0; 


; Move 10 letters only 


; HL pts to desired word 


; DE pts to destination men. 


; Proper literal word now 
; moved to memory to print 


encountered. 


en 


string address 


; Get the letter to be sent 
; End of text yet? 

; Must retain HL! 

; Print the char 


; Keep going until '$' 


even spacing on print line 


' 

7 
,9,0 
ae 


0, 


Oo oOo © 


0, 
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0277 417072696C DB Rope 5 70,0, 0 
0281 4D61792000 DB 'May ',0,0,0,0,0,0 
O028B 4A756E6520 DB ‘June, 0,0;0,0,0 
0295 4A756C7920 DB RULE <p Ab ae We gn ee 
O29F 4175677573 DB ‘August ', 0,0,0 
O2A9 5365707465 DB 'September ' 
O2B3 4F63746F62 DB 'Oectoper '; 0,0 
O2BD 4E6F76656D DB ‘November ', O 
O2C7 446563656D DB ‘December ', 0 
O2D1 END End Listing Two 
Listing Three 
; TIMELIST Program to read a file and send it out 
; to printer with time/date and program name 
; Program by Alan D. Wilcox 
; 29 October 1984 
; Usage A> TIMELIST filespec.txt 
0100 ORG 100H 
OOAO = CLOCK EQU OAOH ; Clock base address 
0000 = FALSE EQU 0 
FFFF = TRUE EQU NOT FALSE 
FFFF = TOLPTR EQU TRUE - Make FALSE to send all output to 
- console rather than to line prntr 
0000 = KEEPFF EQU FALSE ; Make TRUE to use form feeds in 
: orig text. TRUE also cancels line 
; counting by this program. 
0005 = BDOS EQU OOO5H ; BDOS entry point 
0002 = CONSOUT EQU 2 ; Console Output 
0005 = LISTOUT EQU 5 ; List Output 
0009 = PRINTST EQU 9 ; Print String Function 
OOOB = GETSTAT EQU 24 ; Console Status 
OOOF = OPENF EQU 15 ; Open File 
0014 = READF EQU 20 ; Read Next Record 
005C = FCB EQU 5CH : File Control Block Address 
OO7C = FCBCR EQU FCB+32 ; Current (next) record for r/w 
0080 = BUFF EQU 80H ; Input Disk Buffer Address 
OOOC = TSLZ0 EQU +2 ; Title block size 
0003 = SRIP EQU 3 ; Added number of spcs at left margn 
0050 = COLS EQU 80 : Max possible columns per page 
O0O03C = LPAGE EQU 60 ; Lines to print per page 
0008 = NRSPCS EQU 8 ; Convert tab to NRSPCS spaces 
0009 = TAB EQU OSH ; Horizontal Tab 
OOOA = LF EQU OAH ; Line Feed 
OOOB = VT EQU OBH ; Vertical Tab (alt FF) 
Oo00oCc = FF EQU OCH ; Form Feed 
OOOD = CR EQU ODH > Carriage Return 
OO1A = CNTLZ EQU 1AH : End of File (cnt1l-z) 
001B = ESC EQU 1BH ; Escape 
0020 = SPC EQU 20H ; Space 
° * KK KKK KKK * MAIN PROGRAM KKK KKK KK KK 
* 
-_ 
0100 210000 STACK: LXI H,O - Stack in safe place while 
6103. 39 DAD SP F using disk buffer space. 
0104 227904 SHLD OLDSTK - Save old stack position 


(Continued on next page) 


Dr. Dobb’s Journal, July 1985 79 





Real- Time Cloc k (Listing Continued, text begins on page 56) 





Listing Three 
0107 319F04 LXI SP ,NEWSTK ; Use new stack pointer 
010A CD1iBO1 CALL OPENFILE ; Open program to be read 
010D CD3B0O1 CALL SAVETITLE ; Save pgm name as the title 
0110 CD7901 CALL FIRSTLINE ; Prnt time/date/title line 
0113 CDD301 CALL PRINTLOOP ; Read & print file 
0116 2A7904 Quit: LHLD OLDSTK ; Get the old stack pntr in 
0119 F9 SPHL ; HL & put in on the stack. 
011A C9 RET ; Return to CP/M 

: * 

. * 

OK KKK KOK KK * SUBR OPENFILE * KKK KKK KK 

OPENFILE: ; Open the file requested 
011B AF XRA A ; Zero accumulator 
011C 327C00 STA FCBCR ; 2ero file record count 
Q011F 115C00 LXI D,FCB 
0122 OEOF MVI C,OPENF ; Open the file 
0124 CDO500 CALL BDOS ; Get OFFH in Accum if error 
0127 FEFF CPI OFFH 
0129 C23501 JINZ OKOPEN 
012C 113D03 LXI D,OPENERR ; Had-érror in file opening 
012F CD3503 CALL PRINTIT ; Print error message 
0132 CD1601 CALL QUIT ; Restore stack and get out 
0135 3E80 OKOPEN: MVI A, BUFF ; Set position of input 
0137 327B04 STA INBUFPT ; buffer pointer 
013A C9 RET 

: KKXKKKK KK EX SUBR SAVETITLE * KK KK KKK KX 

SAVETITLE: ; Save name of program as title 
013B OEOC MVI C,TSIZE ; Clear TSIZE space in memory 
013D 21AA03 LXI H,HEADER ; Starting at HEADER. 
0140 3620 CLRBLK: MVI M,SPC ; Fill with spaces 
0142 23 INX H 
0143 OD DCR C 
0144 C24001 JINZ CLRBLK 
0147 3A8300 LDA BUFF+3 ; See if drive in cmd line 
014A FE3A CPI oe ; 2 set if true 
014C C25A01 JINZ NODRIV 
O14F 118400 LXI D,BUFF+4 ; DE pts to pgm name only 
0152 3A8000 LDA BUFF ; Get count of chars 
0155 D603 SUI 3 ; Sub cnt, space, drive spec 
0157 C36201 JMP ADJSIZE 
015A 118200 NODRIV: LXI D,BUFF+2 ; DE points to pgm name 
015D 3A8000 LDA BUFF ; Get count of chars 
0160 D601 SUI 1 ; Subtr count & space 
0162 FEOC ADJSIZE:CPI TSIZE ; Adjust char cnt so it f7Its 
0164 F26BO1 JP BIG ; Jump if count > TSIZE 
0167 4F MOV C,A ; Acceptable count into Cc 
0168 C36D01 JMP OKSIZE 
016B OEOC BIG: MVI C, §SIZz ; Title is max size 
016D 21AA03 OKSIZE: LXI H,HEADER ; Destination for title move 
0170 1A MTITLE: LDAX D ; Get the character 
OLsi7T7 MOV M,A *; and save it as header 
ory? 23 INX H 
Ot73 -13 INX D 
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0174 
0175 
0178 


0179 
017B 
O17E 


0181 
0183 
0186 


0189 
018B 
O18E 


0191 
0193 
0196 
0199 


019C 
O19E 
O1Al1 


O1A4 
01A6 
01A9 
01AC 


O1AF 
01B1 
01B4 


01B7 
01B9 
O1BC 
O1BE 
O1BF 
01CcO 


01C3 
01C6 


01C9 
01CB 


O1CE 
01CF 
01D2 


OD 
C27001 
cg 


DBA4 
116B03 
CDE102 


DBA3 
116E03 
CDE102 


DBA2 
117103 
CDE102 


DBAS 

118003 
21BB03 
CDF302 


DBAS 
118B03 
CDE102 


DBA7 

118E03 
210104 
CDF302 


DBAQ 
119A03 
CDE102 


C2BCO1 


216803 
CD1BO03 


3E03 
327E04 


AF 
327D04 
cg 


FIRSTLINE: , 


KKKKKKKKKE 


DCR Cc 
JINZ MTITLE ; Title saved when zero 
RET 


*K KK KKK KKK 


SUBR FIRSTLINE 


Read current time and save in memory 
IN CLOCK+4 ; Get hours from clock 
LXI D,HOURS 
CALL BCDTOASC ; Convert to ASCII & save 
IN CLOCK+3 ; Get minutes from clock 
LXI D,MINUTES 
CALL BCDTOASC ; Convert 
IN CLOCK+2 ; Get seconds 
LXI D,SECONDS 
CALL BCDTOASC 
: Read day of week and save literal equiv. in memory 
IN CLOCK+5 
LXI D,DAY ; Where to save the result 
LXI H, LITDAY ; Location of literal weekday 
CALL NTOLIT - Convert number to literal 
‘ Read date and save in memory 
IN CLOCK+6 
LXI D,DATE ; Where to save result 
CALL BCDTOASC Convert to ASCII and save 
‘ Read month and save literal equivalent in memory 
IN CLOCK+7 
LXI D,MONTH : Where to save result 
LXI H,LITMON - Location of literal months 
CALL NTOLIT - Convert to literal 
; Read year from clock RAM & save in memory 
IN CLOCK+9 
LXI D,YEAR 
CALL BCDTOASC : Convert to ASCII and save 


Clear spaces at left margin before printing time 


MVI C,SKIP 
LXI H, TOPLINE 
CLRSKP: MVI M,SPC ; Fill with spaces 
INX H 
DCR C 
JINZ CLRSKP 
IF TOLPTR - Send time message to line printer 
LXI H, TOPLINE ; HL gets adr of message 
CALL LISTIT ; To printer 
ENDIF 


IF NOT TOLPTR ; 


ENDIF 
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Send time message to console 
D,TOPLINE ; DE gets adr of message 
PRINTIT ; Print to console 


LXI 
CALL 
Set line cntr to 3 to account for title block lines 


MVI 
STA 


A,3 
LINECNT 


Initialize column counter 


XRA A ; Zero accum 
STA COLCNT ; Column counter zero 
RET 


(Continued on next page) 


$1 


Real- Time Cl OC. k (Listing Continued, text begins on page 56) 
Listing Three 


FKKKKEKKE € SUBR PRINTLOOP * KK KK KK KK * 


PRINTLOOP: ; Will stay in this loop until either break 
; from console or file is completely printed 


; Check console for break. Exit without losing stack 


01D3 OEOB MVI C,GETSTAT 

01D5 CDO500 CALL BDOS ; Accum LSB=1 if brk request 
01D8 OF RRC ; Put ESB into carry 

O1D9 DA5702 J¢ DONE ; Leave program 


j Check to see if need spaces at start of left margin 


01DC 3A7D04 LDA COLCNT ; Current column count 

O1DF FEO3 CPI SKIP ; Sign set while COLCNT< SKIP 
O1E1 F2ED01 JP CKLINE ; Jump when COLCNT>=SKIP 

O1E4 3C INR A ; Increment col counter 

O1E5 327D04 STA COLCNT 

O1E8 3E20 MVI A,SPC 

O1EA C35102 JMP GOPRNT ; GO print space & continue 


; Check for proper lines per page. Send FF if needed 


O1ED 3A7E04 CKLINE: LDA LINECNT ; Current line count 
O1FO FE3C CPI LPAGE ; Max lines per page 
O1F2 C20102 JINZ DATA ; Get data if not equal yet 
IF KEEPFF 
JMP DATA ; Don't bother counting. 
ENDIF ; Use FF's in source text. 
O1F5 AF XRA A ; Zero accum 
O1F6 327E04 STA LINECNT ; Reset line cntr when equal 
O1F9 327D04 STA COLCNT ; Reset column counter too 
O1FC 3E0OC MVI A,FF 
O1FE C35102 JMP GOPRNT ; Print FF & continue 


: Get the data and filter out various characters 


0201 CD5B02 DATA: CALL GETNB ; Get the next byte. 
0204 DA5702 JC DONE ; Carry set if EOF 
0207 FEOD CPI CR 
0209 CA5102 Jz GOPRNT ; Print the CR 
O20C FEOA CKLF: CPI LF 
O20E C22102 JINZ CKFF ; Jump if not a LF 
0211 3A7E04 LDA LINECNT 
0214 3C INR A ; Increment line counter 
0215 327804 STA LINECNT 
0218 AF XRA A 
0219 327D04 STA COLCNT ; Set col counter to zero 
021C 3E0OA MVI A,LF ; Restore data 
O21E C35102 JMP GOPRNT ; #2P2ant. the iL 
IF KEEPFF 
CKFF: JMP LNWID +; Go and print FF & VT chars 
ENDIF 
IF NOT KEEPFF 
0221 FEOC CKFF: CPI FF 
0223 CA0102 JZ DATA ; If FF, ignore. Get new data 
0226 FEOB CPI VT 
0228 CA0102 JZ DATA ; If VT, ignore it too. 
ENDIF 


; Check for proper width of line 


O022B F5 LNWID: PUSH PSW 

O22C 3A7D04 LDA COLCNT ; Get current column count 
O22F FE50 CPI COLS ; Max allowed per line 
0231 C24202 JINZ NOTMAX 


(Continued on page 84) 


82 Dr. Dobb’s Journal, July 1985 



















GRAPH TCS FF ROM rer 
POd-: TMA PRa XS PR NTR 


HPLOT 


A PLOTTER EMULATION PROGRAM om 
FOR YOUR OKIDATA, PROWRITER, 
GEMINI, OR EPSON PRINTER. 
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POWERFUL HP-GL PLOTTER SYNTAX: 
SCALING, LINETYPES, WINDOWS, 
ETC; LABELS ANY [Ze , wae, 
OR WUOITOZAIQ. 

FAST! GRAPHS IN FOUR MINUTES. 


(youeesey (e+t6rq) Wrdd 















*x*K MMM 


HI-RES MODE: UP TO 136x144 DPI. 
89+ PAGE ILLUSTRATED MANUAL. 
SOURCE CODE IN C FOR 
HPLOT TO MAKE PIE SS | 
CHARTS, GRAPHS, ETC. 

OTHER PRINTERS AND OS’S SOON! 

* AVAILABLE IN 8" SSSD AND MOST 


PLOT SIZES 11°14" TO 7" 246". 
PROGRAMS THAT USE 

* REQUIRES S4K Z8@ CP/M 2.2. 
S.25" 48 TPI FORMATS. 









$49, 95 PPD. OH RES ADD 5% TAX 


(60,87) OBZ ‘CPYeX°ed-++*1"9H) 19-dH * 


ORDINATE SOL ISLONS 


MAIN P.O. BOX @308, OBERLIN, OH 44074 


TAEE 40 MAS PREPARED ON AN CRLLA7A Dé. 


TURBO ASSEMBLER 


Introducing FAST ASSEM-86™, the TURBO PASCAL™ of IBM PC assemblers. 
FAST ASSEM-86™ (FASM) is significantly faster and easier to use than the IBM 
Macro-Assembler (MASM). Whether you are new to assembly language and want to 
quickly write a small assembly language routine, or are an experienced MASM user 
tired of waiting months to assemble large files, FAST ASSEM-86 will bring the 
excitement back to assembly language. 








FAST ASSEM-86 |S MUCH FASTER: 


@ How fast is FASM™? The graph below shows relative assembly times for a 48K 
source file. For large files like this we blow MASM's doors off at 3 times their 
speed. For smaller 8K files we positively vaporize them at 6 times their speed. 


FASM™ (110 sec) a 
MASM . = (sae REeE A IA 


e FAST ASSEM-86 is faster for the following reasons: (1) Written entirely in 
assembly language (unlike MASM). (2) Editor, assembler and source file always 
in memory so you can go instantly from editing to assembling and back. (3) 
Eliminates the time needed to LINK programs. Executable .COM files can be 
created directly. (Also creates .OBJ files compatible with the IBM linker). 


FAST ASSEM-86 IS EASIER TO USE: 
FASM includes many other features to make your programming simpler. 


e Listings are sent directly to screen or printer. Assemblies can be single stepped 
and examined without having to leave the editor. 


@ Access the built in cross reference utility from the editor. 
Full support of 186 and 286 (real mode) instructions. 


Both Microsoft and 8087 floating point formats are supported. 8087 and 287 
instructions supported directly without macros for faster assembly. 


© Calculator mode: Do math in any radix even using symbols from the symbol table. 
@ Direct to memory assembly feature lets you test execute your code from editor. 
@ Coming soon: A coordinated symbolic debugger. 


COMPATIBILITY: FASM is source code compatibile with MASM and supports macros, 


records and structures. 
Introductory Price $49 
With .OBJ Capability $99 
Folsom, CA 95630 


Speedware™ (916) 988.7426 


IBM, Turbo Pascal, Microsoft trademarks of IBM Corp., Borland Intern., Microsoft Corp. 


Dealer inquires welcome 
118 Buck Circle 


Circle no. 59 on reader service card. 





Epsilon 
The Emacs-Like Text Editor For 


Programmers Who Don’t Like to Wait!! 
State of the Art Text Editor 


Epsilon is an exciting new text editor designed to make 
programmers more productive. Epsilon is faster than Brief, 
faster than Mince, faster than Gosling Emacs, and faster 
than the editor you're using now! 


Concurrent Processes! 
Epsilon lets you compile while you edit! You can run 
compilers, assemblers, linkers, and almost any other 
program that isn’t screen oriented, all under Epsilon’s 
control, while you edit your files! 


With Epsilon you don’t wait for programs like compilers 
to finish. Use Epsilon’s concurrent process command, and 
while the compiler runs, you can continue to examine 
and edit files. Any errors in the compilation are displayed 
immediately, and Epsilon gives you the opportunity to 
correct them while the compiler continues to run. With 
Epsilon, you’re finished correcting errors when other 
editors first let you start. 


Powerful Commands 
Epsilon has over 125 commands instantly available. Epsilon 
can manipulate words, sentences, and paragraphs easily. 
Epsilon will automatically save text you have deleted in a 
“ring” of kill-buffers, so that you can retrieve it later. It 
will help you avoid syntax errors by displaying matching 
parentheses. And best of all, Epsilon’s macros let you 
define your own commands, which can be loaded 
automatically each time you start Epsilon. 


Speed with No Limits. 
Epsilon reads and writes files 25% to 600% faster than 
competing editors. From its convenient keyboard macros 
to its facility that completes the names of commands, files 
and buffers, to its optimized incremental search, Epsilon 
has been designed for programming ease and speed. 


There’s no limit to the number or the size of buffers you 
can have. Each buffer can hold a different file, or different 
versions of the same file. You can create as many windows 
as will fit on the screen, and display different buffers in 
each. And should you run out of memory, Epsilon will 
create and automatically utilize a swap file. 


Speed Comparison (In Seconds) with Other Editors 


Epsilon Brief Mince Emacs 
Start-up 2.60 4.11 1.43 24.93 
Read 21K file 1.06 133 8.95 7.52 
Write 21K file 2.11 14.30 6.05 7.95 
Next Screen 19 24 138 1.80 
String Search 3.85 7.04 4.49 8.41 
|-Search 3.85 -- -- 8.73 
First Help 8.30 12.33 -- -- 
Other Helps .20 11.64 -- 


Epsilon runs on IBM PC’s, XT’s, AT’s and compatibles with 
PC-DOS 2.0 or above and requires 192K of memory. 


Epsilon’s price is only $195.00. 
ALL MAJOR CREDIT CARDS ACCEPTED. 





® 
Lugaru Software, Ltd. 
5227 Fifth Avenue, Suite 12 / P. O. Box 110037 
Pittsburgh, Pa. 15232 


(412) 621-5911 


Circle no. 24 on reader service card. 


Real- Tim e Cl OC k (Listing Continued, text begins on page 56) 


Listing Three 
0234 CDC902 CALL PRCRLF ; If equal, do CR/LF, reset 
; the col counter to zero, 
; increment line counter. 
0237 3A7BO4 LDA INBUFPT ; Set buffer pointer back 
023A 3D DCR A ; to. ignore’ this char. 
023B 327B04 STA INBUFPT 
O23E Fl POP PSW ; Reset stack and go back 
O23F C3D301 JMP PRINTLOOP ; thru read loop 
0242 Fil NOTMAX: POP PSW 
0243 FEO9 CKTAB: CPI TAB 
0245 CC8602 CZ TABTOSP ; If TAB, expand it to spaces 
0248 F5 PUSH PSW ; Save data byte now in accum 
0249 3A7D04 LDA COLCNT 
024C 3C INR A ; Increment column counter 
024D 327D04 STA COLCNT 
0250 F1 POP PSW ; Restore data for print 
0251 CD2E03 GOPRNT: CALL PCHAR 
0254 C3D301 JMP PRINTLOOP 
0257 CDC902 DONE: CALL PRCRLF ; Print CR/LF to wrapup 
O25A C9 RET 
KEKKKKE KK SUBR GETNB * OK KKK KKK KK 
; Gets the next byte from memory or EOF flag if done 
; EXIT: A = Next file byte fetched from memory 
; F = Carry set if End-of-File 
025B 3A7B04 GETNB: LDA INBUFPT ; Get current buff rel ptr 
O25E FE80O CPi BUFF ; Is it to end of rec yet? 
0260 C27302 JINZ GET ; Get next byte if not. 
: Read a 128-byte record from disk 
0263 115CO0 LXI D,FCB ; DE gets FCB adr. Reads 128 
O266 OE14 MVI C,READF ; bytes into mem starting 
0268 CDO500 CALL BDOS ; at BUFF adr 
O26B B7 ORA A ; A=O if record read OK, so 
026C CA7302 IZ GET ; go get the info. 
; Else if A#0, then is EOF. 
O26F 37 EOF: STC ; Set carry to indicate EOF. 
0270 C38502 JMP GETEND 
GET: i; Read the byte at BUFF + Reg A's relative offset 
0273 5F MOV E,A ; DE contains rel position of 
0274 1600 MVI Do ; pntr into disk buff space 
0276: 3C INR A 
O277 327B04 STA INBUFPT ; Incr and save new pointer. 
O27A 218000 LXI H, BUFF ; Start addr of buffer space 
O27D 19 DAD D ; plus rel offset ---> HL 
O27E 7E MOV A,M ; Get byte ptd to by HL 
O27F FEIA CPI CNTLZ ; Check for EOF within record 
0281 CAGFO2 Jz EOF ; & exit with carry bit set 
0284 B7 ORA A Reset carry bit 
0285 C9 GETEND: RET 
KEKKKKEKKK & SUBR TABTOSP * XK KX KKK KK * 
TABTOSP: ; Converts a tab to every NRSPCS columns 
0286 3A7D04 LDA COLCNT + Which column are we in? 
0289 DEO3 SBI SKIP ; Make relative offset 
O028B 5F MOV E,A ; Put fe ine 
O28C 1608 MVI D,NRSPCS 
(Continued on page 86) 
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TOTAL CONTROL: 


FORTH: FOR Z-80®, 8086, 68000, and IBM® PC 


Complies with the New 83-Standard 
GRAPHICS e GAMES e COMMUNICATIONS e ROBOTICS 


DATA ACQUISITION e 


@ FORTH programs are _ instantly 
portable across the four most popular 
microprocessors. 

@ FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

@ FORTH programs are highly struc- 
tured, modular, easy to maintain. 

@ FORTH affords direct control over 
all interrupts, memory locations, and 
i/o ports. 

@ FORTH allows full access to DOS 
files and functions. 

@ FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

@ FORTH Cross Compilers are 
available for ROM’ed or disk based ap- 


plications on most microprocessors. 


Trademarks: IBM, International Business Machines 
Corp.; CP/M, Digital Research Inc.; PC/Forth+ and 
PC/GEN, Laboratory Microsystems, Inc. 


= Ly 





Laboratory Microsystems Incorporated 
Post Office Box 10430, Marina del Rey, CA90295 
Phone credit card orders to (213) 306-7412 


PROCESS CONTROL 


FORTH Application Development Systems 
include interpreter /compiler with virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual. Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions. 


Z-80 FORTH for CP/M® 2.2 or MP/M II, $100.00; 
8080 FORTH for CP/M 2.2 or MP/M II, $100.00; 
8086 FORTH for CP/M-86 or MS-DOS, $100.00; 
PC/FORTH for PC-DOS, CP/M-86, or CCPM, 
$100.00: 68000 FORTH for CP/M-68K, $250.00. 


FORTH + Systems are 32 bit implementations 
that allow creation of programs as large as 1 
megabyte. The entire memory address space of 
the 68000 or 8086/88 is supported directly. 


PC FORTH + $250.00 
8086 FORTH + for CP/M-86 or MS-DOS $250.00 
68000 FORTH + for CP/M-68K $400.00 


Extension Packages available include: soft- 
ware floating point, cross compilers, INTEL 
8087 support, AMD 9511 support, advanced col- 
or graphics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 


Circle no. 55 on reader service card. 


$5.00 C Compiler 


Due to popular demand, Dr. Dobb's Journal has reprinted its most- 
asked-for C compiler articles by Ron Cain and J. E. Hendrix, each for 


only $5.00. 


Ron Cain’s C compiler from sold-out 1980 issues #45 and #48 includes 
“A Small C Compiler for the 8080s” and “Runtime Library for the Small 


C Compiler.” 


The J. E. Hendrix reprint includes part two of “Small-C Compiler v.2" 
from sold out issue #75 and completes the first part of the compiler 
article from issue #74 which is included in Dr. Dobb’s Bound Volume 7. 
To Order: Enclose $5.00 for each copy with this coupon and send to: 
‘Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 
Outside U.S., add $2.00 per copy for shipping and handling. 


Please send 


copy(ies) of the Ron Cain Reprint, and 


____ copy(ies) of the J. E. Hendrix reprint to: 


I a eeepc — a oe ee amen 


Pr ec ieee 


City 


State Zip 


ALL REPRINT ORDERS MUST BE PREPAID. 


Please allow 6—9 weeks for delivery. 
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PROGRAMMER’S UTILITIES 


especially for Turbo Pascal on 
IBM PC/XT/AT and compatibles 


MORE POWERFUL THAN UNIX UTILITIES!!! 
Whether you are a 
-- Student -- Hobbyist -- Professional Software Developer -- 
THESE UTILITIES WILL IMPROVE YOUR 
PROGRAMMING PRODUCTIVITY!!! 














































































These Powerful, Ready-to-Use programs fully support Turbo 
Pascal versions 2.0 and 3.0, and MSDOS 2.X and 3.0. Here's 
what you get: 

Pretty Printer 

Standardize capitalization, indentation, and spacing of 
source code. Don't waste your own time! Several adjustable 
parameters to suit your tastes (works with any standard 
Pascal source). 


Program Structure Analyzer 

Find subtle problems the compiler doesn't: uninitialized and 
unused variables, modified value parameters, “sneaky” 
variable modification, redefined standard identifiers. Also 
generates a complete variable cross reference and a pro- 
gram hierarchy diagram. Interactive or write to file (works 
with any standard Pascal source). 


Execution Timer 

Obtain a summary of time spent in each procedure and 
function of your program, accurate to within 200 micro- 
seconds. Also counts number of calls to each subprogram. 
Fully automatic. 


Execution Profiler 

Obtain a graphic profile of where your program spends its 
time. Interactive, easy-to-use. Identify weak code at the in- 
struction level. (Profiler and Timer for Turbo Pascal Source 
code only.) 


Command Repeater 

Go beyond MSDOS batch files to combine a powerful text 
parser with general-purpose command execution capability. 
Use to copy, print or delete across subdirectories, “make” 
programs and more. 


Pattern Replacer 

Find and REPLACE versatile regular expression patterns in 
any text file. Supports nesting, alternation, tagged words 
and more. Over a dozen programmer's applications 
included. 


Difference Finder 

Find differences between two text files, and optionally create 
an EDLIN script which rebuilds one from the other. 
Disregard white space, case, arbitrary characters and Pascal 
comments if desired. 


Super Directory 

Replace PCDOS DIR command with extended pattern 
matching, sort capability, hidden file display, date filtering, 
and more. 


File Finder 

Locate files anywhere in the subdirectory tree and access 
them with a single keystroke. Display the subdirectory tree 
graphically. 


AVAILABLE IN SOURCE 
AND EXECUTABLE FORMAT 


Executable: $55 COMPLETE including tax and shipping. 
Compiled and ready to run, includes user manual, reference 
card and one 5%” DSDD disk. Ideal for programmers not 
using Turbo. 


Source: $95 COMPLETE including tax and shipping. In- 
cludes all of the above, and two additional DSDD disks. 
Disks include complete Turbo Pascal source code, detailed 
programmer's manual (on disk) and several bonus utilities. 
Requires Turbo Pascal 2.0 or 3.0. 


Requirements: MSDOS 2.X or 3.0, 192K RAM — programs 
run in less RAM with reduced capacity. Two drives or hard 
disk recommended. 


TO ORDER: 

VISA/MasterCard orders, call 7 days toll-free 1-800-538-8157 
x830. In California, call 1-800-672-3470 x830 any day. 

Or mail check/money order to: 


TurboPower Software 
478 W. Hamilton Ave., Suite 196 
Campbell, CA 95008 


Circle no. 81 on reader service card. 
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Real- Time C. loc. k (Listing Continued, text begins on page 56) 


Listing Three 


O28E 


0291 
0293 
0294 
0295 
0296 
0298 


O29B 
O29D 
O29E 
O2A1 
O2A2 
O2A5 
O2A6 
O2A9 


O2AA 
O2AD 


O2AF 


O2B0 
02B3 
O2B5 
O2B6 
O2B7 
O2B8 
O2B9 
O2BA 
O2BB 
O2BE 
O2BF 
02CO 
02C1 
O2C2 
02C3 
02C4 
02C5 
02C8 


02C9 
O2CA 
O2CB 
O2CE 
O2D1 
O2D2 
02D5 
O2D7 
O2DA 
O2DC 
O2DF 
O2E0O 


CDBOO2 


FEO1 
FAADO2 


3E20 


C29B02 


3E20 


cg 


210800 


F5 

AF 
327D04 
3A7TEO4 
3C 
327E04 
3EOD 
CD2E03 
3EOA 
CD2E03 
Fl 

C9 


SPACES: 


ENDTAB: 


f 
. 
‘ 
. 
’ 


MODULO: 


NEWBIT: 


NOADD: 


CALL 


MVI 
SUB 
DCR 
MOV 
CPI 
JM 


MVI 
PUSH 
CALL 
POP 
LDA 
INR 
STA 
DCR 


JINZ 


MVI 


RET 


* KKK KK KK KK 


Does division of 2 8-bit numbers: 


MODULO 


A,NRSPCS 
C 

A 

C,A 

1 

ENDTAB 


A,SPC 
5 
PCHAR 
B 
COLCNT 
A 
COLCNT 
C 


SPACES 


A,SPC 


SUBR MODULO 


Result in Reg H 
Remainer in Reg C = 


LXI 
MVI 
MOV 
RAL 
MOV 
MOV 
RAL 
SUB 
JNC 
ADD 
MOV 
CMC 
MOV 
RAL 
MOV 
DCR 
JINZ 
RET 


*KKEKKK KK * 


PRCRLF: 


. 
‘ 
’ 
’ 
‘ 


PUSH 
XRA 
STA 
LDA 
INR 
STA 
MVI 
CALL 
MVI 
CALL 
POP 
RET 


KK KKK KKK X 


OO001000B 


Ayn 
H,A 


L 
NEWBIT 


SUBR PRCRLF 


Do (COLCNT)mod NRSPCS 
Remainder is in Reg C 


A has total # spaces to do 
Pickup space after RET 

C has # spaces to do now 
Set sign if need less than 
one space printed. 


Keep column count current 
while sending spaces 


Loop until enough spaces 


Print the last space when 
get .to .GOPRNT 


* KKK KKK KK 


(Reg E) mod 


(Reg E)/(Reg D) 


(Reg D) 


*KKKKKKKK 


; Prints a CR/LF pair 


PSW 

A 
COLCNT 
LINECNT 
A 
LINECNT 
A,CR 
PCHAR 
A,LF 
PCHAR 
PSW 


SUBR BCDTOASC 


. 
‘ 


. 
‘ 


. 
‘ 


Zero accum 
Set column counter to zero 


Increment line counter 


*KKKKK KK KX 
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; Converts binary value into two ASCII-hex characters 


: ENTRY: Reg A 2 packed-BCD characters 


: DE Adr of where to store ASCII answers 
: EXIT: (DE) = MS char 
: (DE+1) = LS char 
BCDTOASC: 
O2E1 F5 PUSH PSW 
O2E2 OF RRC : Put 4 MSB's into 4 LSB's 
O2E3 OF RRC 
O2E4 OF RRC 
O2E5 OF RRC 
O2E6 E60F ANI OFH ; Mask out top 4 bits 
O2E8 C630 ADI “a ; Add offset to make ASCII 
O2EA 12 STAX D > Save the result 
O2EB Fl POP PSW ; Get the next character 
O2EC E60F ANI OFH 
O2EE C630 ADI "oO? ; Make ASCII 
O2FO 13 INX D 
O2F1 12 STAX D ; Save it in next memory loc 
O2F2 C9 RET 


KEK KK KEKE *K SUBR NTOLIT KKKKKKKKK 


Converts packed-BCD number (1 to 12) to its equiv 
: literal string and saves in specified memory. 


; ENTRY: A = 2 packed-BCD numbers from clock 
: DE = Adr of where to store literal results 
: HL = Pntr to 10-char literal strings 
O2F3 47 NTOLIT: MOV B,A ; Save data 
O2F4 E610 ANI 00010000B ; See if have tens digit 
O2F6 CAFFO2 JZ SMALLNR >; Jump if not 
O2F9 78 MOV A,B 
O2FA C60A ADI 10 ; Add 10 to low nibble so 
O2FC C30003 JMP BINARY }; it's binary now. 
O2FF 78 SMALLNR: MOV A,B 
0300 E60F BINARY: ANI OFH ; Mask off top nibble 
0302 D601 SUI 1 ; Make number O to 11 max 
0304 CAOFO3 Jz MOVE ; At first already 
0307 010A00 LXI B,10 > 10 literals in word 
O30A 09 NEXT: DAD B : Add it to HL for next word 
O030B 3D DCR A ; until get to proper one. 
030C C20A03 JINZ NEXT 
O30F 010A00 MOVE: LXI B,10 - Cnt to move 10 letters only 
0312 7E MOVDAT: MOV A,M ; HL pts to desired wor 
0313 12 STAX D ; DE pts to destination men. 
0314 13 — INX D 
0315 23 INX H 
0316 OD DCR C ; Proper literal word now 
0317 C21203 JINZ MOVDAT ; moved to memory to print 
031A C9 RET 
KAKKKKKEK SE SUBR LISTIT KKXKKKKKKE YE 


; Lists to printer until '$' encountered. 


. 
‘ 


: ENTRY: HL = string address 
031B 7E LISTIT: MOV A,M ; Get the letter to be sent 
Q031C FE24 CPI net ; End of text yet? 
O31E CA2D03 JZ LISTEND 
0321 ES PUSH H ; Must retain HL! 
0322 5F MOV E,A 
0323 OEOS MVI C,LISTOUT 
0325 CDO500 CALL ' BDOS ; Print the char 


(Continued on next page) 
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Real- Time Cloc k (Listing Continued, text begins on page 56) 
Listing Three 


0328 
0329 
O32A 
032D 


O32E 


0330 
0331 
0334 


0335 


0336 
0338 
033B 
033C 


033D 
035B 


0368 


O36B 
036D 
O36E 
0370 
0371 
0373 
0380 
O38A 
038B 
038D 
O38E 
0398 
O39A 
O039C 
O3AA 
O3B6 


O3BB 
03C5 
O3CF 
O3D9 
O3E3 
O3ED 


CONSOLE MESSAGES 


H 

H 

LIstit ; Keep going until 's'! 
SUBR PCHAR * OK KK KK KOK KK 


; Prints Reg A to console or printer 


C,LISTOUT ; Output to printer 
C,CONSOUT ; Output to console 
E,A 
BDOS 


SUBR PRINTIT 


**KKKKKKK * 


DE = Start address of string 

PSW 

C,PRINTST 

BDOS ; Print string to console 
PSW 


KKK KKK KK X 


CR,LF,'Input file not found or not ! 
'specified!',CR,LF,'S' 


: * KKK KE KKK TIME/DATE/PGM HEADING KHKKKEKKX & 


El POP 
23 INX 
C31B03 JMP 
C9 LISTEND: RET 
, RHEE REE E ES 
PCHAR: 
If TOLPTR 
OEO5 MVI 
ENDIF 
IF NOT TOLPTR 
MVI 
ENDIF 
SF MOV 
CDO500 CALL 
C9 RET 
) ORK KK Kx 
; ENTRY: 
F5 PRINTIT: PUSH 
OEOS9 MVI 
CDO500 CALL 
Fil POP 
C9 RET 
KR RK KKK x 
ODOA496E70 OPENERR: DB 
7370656369 DB 
TOPLINE: DS 
HOURS: DS 
3A DB 
MINUTES: DS 
3A DB 
SECONDS: DS 
2020202020 DB 
DAY: DS 
20 DB 
DATE: DS 
20 DB 
MONTH: DS 
3139 DB 
YEAR: DS 
2020202020 DB 
HEADER: DS 
ODOAOAO0A24 DB 


KRKKKK KK * * 


. 
‘ 
* 
’ 
’ 
‘ 


53756E6461 LITDAY: 


DB 
4D6F6E6461 DB 
5475657364 DB 
5765646E65 DB 
5468757273 DB 
4672696461 DB 





SKIP 


oO 


wD = 
= © 
wo 


TSIZE 
CR, LF,LF,LF,'$' 


KEKKKKEKEK 


LITERALS 


‘Sunday, : 
‘Monday, : 
‘Tuesday, ; 
"Wednesday, ' 
'Thursday, ' 
'Friday, : 


(Continued on page 90) 
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TIME IS MONEY 


HELP... WHAT DO I DO NOW?... HOW BO oe 
WHY DOES IT,., HELP... WHEN DO ee 

HOW DO I CHANGE ... WHAT... ? 
SUBDIRECTORY ,,. HELP! o 


CAN YORuaE* 


~ 


I WISH 
THEY D LET 
ME DO 








Your Wish Is Our : 
MenuCommand 


Here is the perfect productivity tool for use by unsophisticated end users - or for in- 
tegration into your Own application system. 


MenuCommand is a menu display editing system for PC/MS-DOS written in PC Forth. $ 4S O95 
ae 





It is extremely fast and more powerful in features than any other menu system 
available. It supports unlimited menus and up to 24 selections per menu. Any menu 
selection can be specified to run a-COM or -EXE program (with automatic or screen- 
prompted parameters), any batch file, or any DOS command string up to 60 
characters (with automatic or screen-prompted parameters). | MenuCommand cCur- Money-Back Guarantee 
rently supports both cross-device and cross/sub-directory file access. Includes 

password protection of menus, DOS access, Menu Editor access, and menu selec- One Hour Free 

tions (10 levels), and supports custom-color menu displays. Support Included 


Command Software Systems, Inc. 
5308 Derry Avenue, Suite K 
Agoura Hills, CA 91301 


(818) 707-7100 





Circle no. 38 on reader service card. 
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Real- Time Cloc k (Listing Continued, text begins on page 56) 


Listing Three 
O3F7 5361747572 DB ‘Saturday, ' 
0401 4A616E7561 LITMON: DB 'January ' 
O40B 4665627275 DB 'February ' 
0415 4D61726368 DB 'March 
O41F 417072696C DB 'April 
0429 4D61792020 DB ‘May ' 
0433 4A756E6520 DB ‘June F 
043D 4A756C7920 DB ‘July ' 
0447 4175677573 DB ‘August : 
0451 5365707465 DB ‘September ' 
O45B 4F63746F62 DB ‘October : 
0465 4E6F76656D DB "November ' 
O46F 446563656D DB ‘December §! 
: * KKK KK KK KK VARIABLES KKEKKKK KS * 
0479 OLDSTK: DS 2 ; Stack pointer to get back 
; to the CCP from this pgm. 
047B INBUFPT: DS Z ; Input buffer pointer 
047D COLCNT: DS 1 ; Current length of line 
O47E LINECNT: DS 1 ; Keep count of lines printed 
; on the page 
KKK KK KKK KX STACK LOCATION eK KKK KK KE * 
O47F DS 32 ; Reserve 16-level stack 
NEWSTK: 


049F END End Listings 








— ~=1982—~—“‘(‘iass*#*;‘CS COG 1985 
-68—June No.76—Feb. No.87—Jan. No. 99—Jan. 
No. 69—July No. 77—March No. 88—Feb. No. 100—Feb. 
0. 7 1g. No. 78—April No. 90—April No. 101—March 
. No. 80—June No. 91—May No. 102—April 
9. 81. No. 92—june No. 103—May 
- No. 94—Aug. No. 104—June 
. 83—Sept. No. 95—~Sept. 
lo. 84——Oct. No. 96—Oct. 
No. 85-—-Nov. No. 97—Nov. 
_ No.86—Dec. No. 98—Dec. 


. CA 94303. 
| oe 
City | State Zip 
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A Proffessional Quality Z80/8080/8085 Disassembler 


WHEN YOU NEED SOURCE FOR YOUR CODE 
you need REVAS 3 





REVAS interactively helps you: 
Analyse your software for modification 
disassemble files as large as 64K 
Assign Real labels in the disassembly 

Insert COMMENTS in the disassembly 

Generate a Cross Reference (XREF) listing 





A 60 page manual shows how the powerful REVAS 
command set gives you instant control over I/O to files, 
printer, or console; how to do a disassembly; and even 
how the disassembler works! You get on line help, your 
choice of assembler mnemonics, control of data 
interpretation, and calculation in any number basel 


REVAS runs in Z80 CPM computers; is available on 
8’’ SSSD (standard), RAINBOW, and other (ask) formats 


Price: $90.00 (plus applicable tax), Manual only: $15.00 








REVASCO 
6032 Chariton Ave., Los Angeles, CA 90056 
Voice: (213)649-3575 Modem: (213)670-9465 





Circle no. 84 on reader service card. Circle no. 80 on reader service card. 


FOR THE BEST C DEVELOPMENT 
SYSTEM AVAILABLE FOR THE MACINTOSH, 
CALL DUVALL. 


415-322-2757 


Consulair Corp. 





Circle no. 57 on reader service card. 


KEALIZABLE FANTASIES 





by Michael Swaine and Bob Albrecht 


We announced this column of imag- 
ined and realizable projects in Febru- 
ary in a piece called ““Tiny Hackers” 
and actually launched it in March 
with Richard Stallman’s ‘““GNU 
Manifesto.” But the point of writing 
about realizable fantasies is to en- 
courage their realization, so this 
month we present progress reports on 
the fantasies presented to date. 


Liberating the Mac 

In January we published, though not 
in this column, Tom Lafleur’s illus- 
trated guide to fattening your Macin- 
tosh. Tom received over a hundred 
calls and letters shortly after the issue 
came out. By the time of the Mac- 
world show, several people had set up 
business dedicated to Mac-fattening, 
at least some of which seem to have 
been spin-offs from Tom’s article. 
Despite our warnings that doing it 
yourself voided your warranty, risked 
frying your Mac and was a tedious 
process, a lot of you opened your 
Macs and went at it. We think that 
one reason for the article’s popularity 
is that a lot of you believe that Ap- 
ple’s decision to build the Mac as a 
closed system was a mistake, and one 
you're willing to rectify. (“Apple just 
ain’t the company it once Woz.”— 
Laran Stardrake. ) 

In April we followed up on this be- 
lief by reporting in this column on 
various ways in which people could 
be said to be liberating the Mac, in- 
cluding Lee Felsenstein’s Hacker’s 
Mac (aka Hackintosh), a project for 
learning about the Mac by redesign- 
ing it; and Jack Tramiel’s Atari ST 
(aka Jackintosh), which, running 
DRI’s GEM environment, may bring 
Maclike capabilities to the rest of us. 
As this goes to press, Atari has just 
previewed the ST in Germany, DRI 
has announced the first applications 
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for GEM and Lee thinks that Tramiel 
may be doing some of the Hackintosh 
team’s work for it, though he hasn’t 
abandoned the project. Contact Lee 
at Golemics, 2600 Tenth Street, 
Berkeley CA 94710, (415) 486-8344. 

Also in April, we described Steve 
Jasik’s MacNosy disassembler for the 
Mac, but failed to give a full address. 
It’s Free the ROM 64, 343 Trenton 
Way, Menlo Park CA 94025, and his 
telephone number is (415) 322-1386. 
Steve has fixed some bugs in Nosy 
and is now supplying a fast sort rou- 
tine with the program. MacNosy’s 
Opening screen echos the opening lines 
of the cult classic television program 
The Prisoner: 


I am number 
two. 

Who is number You are number 
one? SIX. 

What do you want? Information. 


Who are you? 


GNU Manifestations 

As last month’s letters indicated, re- 
action to March’s Realizable Fanta- 
Sy, a proposal by Richard Stallman to 
develop a free operating system that 
provides the capabilities of Unix, has 
been emotional. Stallman’s mail has 
been overwhelmingly supportive; he’s 
received many offers of help, and he 
called to offer us quarterly updates 
on the project’s progress. We’ll prob- 
ably print the first of these next 
month. Stallman is reachable at 166 


Prospect St., Cambridge MA 02139. 


Tiny Hackers 

Dragonsmoke, Bob Albrecht’s news- 
letter, is the place to follow The Drag- 
on’s master plan to turn innocent chil- 
dren into programmers, and it seems 
that it will soon be carrying excerpts 
from Ron Jeffries’ newsletter, the Jef- 
fries Report. Dragonsmoke costs 


$12/year and you can get a sample 
issue by sending $1.00 or $.39 and an 
SASE to Dragonsmoke, P.O.Box 
7627, Menlo Park CA 94026. 

Check the June issue of Rainbow 
for a review of the CoCoMac, a low- 
budget way to get Maclike features. 
The same issue also contains informa- 
tion on CoCoMac RAM disk con- 
struction and a plan to get the Fujitsu 
dual-6809 machine distributed in the 
US. It’s supposedly very powerful, 
even without the 68K you can drop in. 


Subversives 

In a guest essay in this space in May, 
Resident Intern Dave Cortesi gave 
his vision of this magazine, a realiz- 
able fantasy for DDJ: that DDJ is and 
should always be subversive. He said, 
‘‘As a good revolutionary, I must be- 
lieve that computer use is for every- 
body, and I really do. But program- 
ming the computers so they can be 
used is almost certainly a job for spe- 
Cialists. Whose specialists?”’ Not the 
establishment’s, Cortesi hopes, but 
those who want to promulgate ideas 
to all who can grasp them, those who 
do not see information exchange as a 
zero-sum game, those who see them- 
selves involved in a revolution, those 
with a mischievous, subversive desire 
“‘to snatch the tools of the establish- 
ment and apply them in the public 
domain.” We never ignore Cortesi’s 
advice, and we hope you won’t either. 
You have, through your contribu- 
tions, the power to steer this maga- 
zine away from the safe shores and 
keep it pushing out recklessly on jour- 
neys of discovery. 


DD) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 195. 
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CP/M SYSTEM — 
INVENTORY 
LIQUIDATION 


Old operating systems never die, they get 
better with agel Multitech Electronics, a 
large manufacturer of complete comp- 
uter systems has an inventory of CP/M 
computers that must go. These fully gua- 
ranteed high performance unifs are 
new factory packaged systems with the 
CP/M 2.2 operating system, 64K of RAM, 
dual floppy disk drives, and CBASIC 
programming language. You'll get more 
than what you paid for with complete 
systems at bargain prices. 





FULL CP/M SYSTEM SPECS 






ee ee he Sad ee 7-80A 


Rae SS FO eS 
SERIAL COMMUNICATIONS DUAL RS—232C PORTS DUAL RS-232C PORTS 


PARALLEL COMMUNICATIONS SINGLE PARALLEL PORT SINGLE PARALLET PORT 













This low price also includes: full compatibility system. Call Multitech today for more on your 
with the wide bank of CP/M software, CP/M O72 CP/M solutions. Cash or credit cards only. Limited 
operating system with utilities and manuals, quantities available. 


| CBASIC 2 programming language, as well as a 
User’s Manual and Service Manual. |n addition 
. you'll get a 30 day full warranty. And Multitech 
will also throw in a Liberty Freedom 100 terminal apna ia yee al Signa 
| for $400.00 with the purchase of an MIC-500 TELEX : 755042 MAC SUVL 


IN CALIFORNIA, CALL: (408) 773-8400 
OUTSIDE CALIFORNIA, CALL: (800)538-1 542 


Multitechivo™ 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 


MSDOS Installable Device Drivers 

One of the more novel features added in Version 2 of 
MSDOS is the concept of “installable device drivers.” 
This allows the user to attach new drivers for additional 
hardware devices or to supersede the system’s existing 
built-in drivers by the simple expedient of putting the exe- 
cutable driver file on the boot disk and editing a line into 
the file CONFIG.SYS. This extremely powerful concept 
has made the lives of third-party mass storage device 
manufacturers much easier (previously they had to disas- 
semble and patch the operating system to get their prod- 
ucts to run). 


But First . . . an Overview of Unix Device Drivers 
Because the installable device drivers of MSDOS are pat- 
terned after Unix and much of the terminology used in 
the Microsoft driver documentation derives from Unix 
terminology, it is instructive to review the structure of the 
real McCoy. Much of the information presented here was 
gleaned from the article “Writing Device Drivers for 
Xenix Systems” by Jean McNamara, et al. (UniForum 
Conference Proceedings, January 1984). 

Unix knows two types of devices: block and character. 
A block device is typically a mass storage medium such as 
a fixed or removable disk or magnetic tape drive. Such 
devices usually transfer data in chunks of fixed Size, 
which are related (in the case of disks) to the characteris- 
tics and “format” of the physical media. 

In contrast, a character device is a sequential device 
such as a CRT terminal or paper tape reader that supplies 
or accepts a stream of bytes. Although ideally the data 
stream of a character device has no inherent structure, in 
practice it usually is delimited by special control charac- 
ters such as carriage returns, which the operating system 
also recognizes. 

Under Unix, all drivers (whether controlling a block or 
character device) have the same general structure and 
contain two major parts: task time routines and an inter- 
rupt handler. 

The task time routines are called at the time of the 
application program’s (the task’s) request for I/O. The 
Unix kernel transforms the request from its high-level, 
logical, device-independent character into addresses and 
parameters that are relevant to the physical device. When 
the driver’s task time routines are executing, the applica- 
tion itself may be thought of as being in control of the 
system and active, although it is running in privileged or 
kernel mode. 
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The interrupt handler is entered asynchronously when 
the corresponding device generates a hardware interrupt. 
Interrupts are issued when an I/O operation has either 
finished or been terminated due to a hardware fault. If 
the system or the device does not support hardware inter- 
rupts, the interrupt handler is entered when the kernel, 
polling the device periodically, determines that it is no 
longer busy. Typically, the task requesting I /O from the 
device is inactive when the interrupt handler receives con- 
trol; indeed, the task is usually in a suspended state pend- 
ing I/O completion, and some other application is active 
and in control as far as the operating system is concerned. 

A Unix block device driver comprises some tables and 
five major routines: 


¢/nit is called once when the system is booted and the 
driver is first loaded into memory. It checks for the exis- 
tence of the physical device and initializes it properly for 
future I/O, if present. 

¢ Open is called by the Unix kernel when a user tries to 
access a file on the device. This routine should complete 
any initialization not performed by Jnit to prepare for 
I/O; it may be part of a mount sequence for removable 
media. 

¢ Close is called by the Unix kernel to reset any flags or 
variables set by Open and to ensure that pending opera- 
tions are completed. A typical action would be to flush 
buffered data to the physical device. This routine may be 
part of a dismount sequence for removable media. 

¢The Strat routine, an abbreviation for “strategy,” is 
called by the Unix kernel when the application issues an 
I/O request for the block device. Strat is called with the 
address of a buffer header or parameter list, which de- 
fines the device unit number, request type (read, write, or 
format), where to find the data (logical block number), 
how much data it should transfer, and the memory ad- 
dress of its buffer. Strat’s responsibility is to validate the 
request then place it on the request queue for that device. 
Finally, it calls the internal routine Start (see below). 

¢ /ntr is called by the Unix kernel when the block device 
issues an interrupt. It is responsible for determining that 
the interrupt signal is valid (Was an Operation on this 
device really in progress and are the appropriate comple- 
tion flags set on the controller?). It determines success 
or failure status for the last operation by interrogating 
the controller and passes the appropriate flags back to 
the kernel. Finally, if additional requests are pending, it 
calls Start to try to initiate another I/O operation. 
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Start is an internal driver routine called by Strat or 
Intr, it removes the highest priority request from the re- 
quest queue and initiates the I/O. If the device is busy or 
if no requests are waiting, Start simply exits. 

The body of a Unix character device driver is similar to 
that of a block device driver. It is made up of seven major 
routines: 


e Init, Open, and Close are similar in function and intent 
to those of the same name in a block device driver. 

¢ Read transfers data from the device driver’s input buffer 
to the application’s buffer. 

e Write transfers data from the application’s buffers to the 
device driver’s output buffers; it also starts output to the 
device if it is idle. If the output buffers are full, Write 
suspends the requesting process until they have emptied. 

¢ Joct! provides direct communication between the appli- 
cation and the driver. It allows the application to ask for 
device-specific information or to set the values of the 
driver’s internal flags and variables (such as baud rate or 
number of stop bits for a serial I/O port). 

e Intr, the asynchronous part of the driver, is called by the 
kernel when the device issues a hardware interrupt. This 
procedure performs the actual data transfer between the 
physical device’s hardware controller and the driver's 
input/output buffers. 


MSDOS Device Drivers 
MSDOS installable device drivers bear a strong resem- 
blance to Unix device drivers, both structurally and func- 
tionally. Like Unix, they fall into two major classes. 
Character device drivers control devices that perform 
1/O one byte at a time, similar to a traditional TTY termi- 
nal. MSDOS has built-in drivers for the console device, 
serial port, and list device, named CON, AUX, and PRN, 
respectively. You can access these drivers using the tradi- 
tional CP/M-like character I/O calls, or you can open 
them by name, like a file for input and output, using the 
new “handle” function calls of MSDOS 2.0 and above. A 
character device driver can support one hardware unit. 
Block device drivers control random access storage de- 
vices such as flexible disk drives or fixed disks. A block 


| Contents 


Offset, pointer to next device header 

Segment, pointer to next device header — 
Device attribute word (see Table 2) 

Pointer to device strategy code (offset) 

Pointer to device interrupt code (offset) 

Logical name (8 bytes) if character device or 
number of units (1 byte) if block device fol- 
lowed by 7 bytes that may contain a name or 
nothing at all 


Table 1 
Device driver header. 
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device driver can support more than one hardware unit 
and/or may map a single physical unit onto two or more 
logical drives. Each device unit for a given block driver is 
assigned a drive designator (such as A:, B:, etc.); the first 
drive letter for a given block device driver is determined 
by that driver’s position in the overall chain of drivers. 

Once a driver is written and assembled, you may load 
and link it into the operating system simply by placing an 
entry of the form 


device = filename.ext 


in the CONFIG.SYS file on the system boot disk. You can 
override the default system driver for a character device 
with an installed driver simply by giving it the same logical 
device name in the device header. When processing an I/O 
request, DOS always scans the list of installed drivers be- 
fore the default devices and takes the first match. 


Structure of an MSDOS Device Driver 
MSDOS device drivers always have an ORIGIN of zero but 
are otherwise assembled, linked, and converted into an exe- 
cutable module as though they were COM or EXE files. A 
device driver consists of three major parts. 

A Device Header (Table 1, below) contains the linkage 
to the next driver in the chain, a set of attribute flags (Ta- 
ble 2, below) for the device, offsets to the executable strate- 
gy and interrupt routines for the device, and the logical 
device name (if it is a character device such as PRN or 
COM1). The linkage address of the last driver in a file is 


Meaning = 


=1if characte 


= 1 if current cclpek device _ . — 
=1 if current NUL device  - 
=1 if current standard output c fo _ 
== if current standard mete device 


a 


4 Currently undefined and should be o _ 
DOS 3.0 and above anys should be 0 fort pos 2. x -_ 


Table 2 _ 
Device attribute word, found in device driver he er 
bits 11, 13, and 1 4 have significar 
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always set to—1 when the driver is created; the drivers are 
chained together, and the linkage fields are updated by 
MSDOS at system initialization. 

The Strategy Routine for the device is entered by DOS 
via a Far Call when the driver is first loaded and installed 
and whenever an application program issues an I /O re- 
quest for the device. DOS uses ES:BX to pass the Strategy 
routine a double-word pointer to a data structure, which is 
called a Request Header; this structure contains informa- 
tion about the type of operation to be performed. Accord- 
ing to MSDOS conventions, the Strategy code never actual- 
ly performs an I/O operation but simply saves the pointer 
to the Request Header. 

The last and most complex part of a device driver is the 
misnamed Interrupt Routine. This code implements the 
device driver proper; it performs the actual operation based 
on the function code and other information passed in the 
Request Header. Status and completion information may 
be passed back to DOS in the same Header. 

When an I/O request is issued, the Interrupt Routine 


Media = db - 
| Address dd 
Sector a . 





Reque: 


| Format of request hea 
mon to all driver fun: 


__| contain the segment. 


___| number of units and the address of the BIOS parameter 
| block (BPB) pointer array; if all units are the same, all 
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| The Driver Command Code Routines 


entry point is called by DOS immediately after the call to 
the Strategy Routine. Unlike in Unix, the Interrupt Rou- 
tine is never entered asynchronously (as is the case on an I / 
O completion interrupt). The division of function between 
the Strategy and Interrupt Routines is completely artifi- 
cial, at least under the currently available nonmultitasking 
versions of MSDOS. 



















The Request Header 

The MSDOS BDOS uses a data structure called the Re- 
quest Header to give the driver the necessary information 
to perform an I/O operation. The address of the Request 
Header is passed to the Strategy Routine and saved in a 
local variable; the Interrupt Routine, which is called imme- 
diately afterward, uses this address to access information 
from the Header. 

The first 13 bytes of the Request Header are the same 
for all device driver functions and therefore are referred to 
as the “static” portion of the Header. The number and 
contents of the following bytes vary according to the type 
of function requested (Table 3, at left ). The Request 
Header’s primary components are a Command Code that 
selects a driver subfunction (such as Read, Write, or Sta- 
tus) and a Return Status word that informs the BDOS 
about the driver’s success with the request I/O operation 
(Table 4, below left, and Table 5, page 98). Other infor- 
mation passed in the Header to the driver includes minor 
unit numbers, transfer addresses, sector or byte counts, 
and so on. 

When an I/O function is completed, the device driver 
uses fields in the Request Header to pass status, sector or 
byte counts, and other information back to the operating 
system. 


The Command Code for the requested driver subfunction 
is passed in the third byte of the Request Header, The 
Interrupt Routine extracts it from the Request Header us- 
ing the double-word pointer saved during the call to the 
Strategy Routine. Typically, the Command Code is used 
as an index into a jump table that points to the proper 
service code. 

In the descriptions below, RH refers to the Request 
Header whose address was passed to the Strategy Routine 
in ES:BX. DWORD refers to a long address, of which the 
first two bytes contain the offset and the last two bytes 


Function O—Driver Initialization 

This initialization code for the driver is called only once, 
when the driver is loaded. It is responsible for performing 
any necessary hardware initialization of the device, setup 
of interrupt vectors, and so on. It returns the address of 
the start of free memory after the driver, so that DOS 
knows where it can load the next installable driver. If it is 
initializing a block device driver, it must also return the 


pointers in the array can point to the same BPB. 


Dr. Dobb's Journal, July 1985 





Technical Product 
Information 








FREE 


For The Asking 


See something 
you'd like to 
learn more about? 
Need more details? 







Information that’s 

e Current 

e In-depth 

° Directed to you on 
specific products 
& services 


FREE 


Send us your 
POSTAGE-PAID card Today! 








DR. DOBB’S JOURNAL Reader Service Card 
Name Phone 

Address 

City /State/Zip 


Expiration Date: Oct. 31, 1985 


Please circle one for each category: 


I. My firm or is a: 
A. Systems Integrator /House 
B. Software Dev. Firm 
C. Hardware OEM or Manuf. 
D. DP, MIS or Data Service 
E. Consulting Firm 
F. Eng. or Science Lab. 
G. Other 


ll. My job function is: 
H. Company Mgmt./Admin. 
J. Computer Systems Mat. 
K. Programmer /Technical Staff 
L. Consultant 
M. Engineering Mgmt. or Staff 
N. Scientific Mgmt. or Staff 
O. Other 


ill. Number of employees in my firm: 
1. Less than 10 
2. 10—99 
3. 100—499 
4. 500—9,999 
5. 10,000—or More 


IV. This inquiry Is for: 
P. immediate Purchase 
Q. Future Project 





July 1985 #106 


V. P 
(check all that apply) 
R. Recommend or Specify 
S. Final Decision-Maker 
T. No Influence 


VI. | advise others about computers, 
on the average: 
6. More Than Once-A-Day 
7. Once-A-Day 
8. Once-A-Week 
9. Not At All 


VIL. | design / write software professionally 
U. Yes 


V. No 


Vill. | buy computer products through: 
(check all that apply) 


W. Retail Stores 

X. Mail Order Houses 

Y. On-site Direct Salespeople 
Z. All of the Above 


IX. | am currently a subscriber: 
A. Yes 
B. No 


Note: 


Check each advertisement for corre- 
sponding number and circle below: 





ool O11 G2 031 = ¢8r- Gi. Ost 
002 O12 O22 032 042 O52 062 
003 O13 O23 O33 043 053 063 
004 O14 024 034 044 054 064 
005 O15 O25 O35 O45 O55 O65 
006 O16 026 036 046 056 066 
007 O17 O27 037 _047 057 067 
008 O18 O28 038 048 O58 068 
009 O19 O29 039 049 O59 069 
010 020 030 040 050 060 070 
071 O81 O91 101 111 121 131 
072 O82 O92 102 112 122 = «132 
073 O83 093 103 113 123 = 133 
074 084 094 104 114 +124 = 134 
075 O85 095 105 115 125 135 
076 O86 096 106 116 126 136 
077 087 O97 107 «+117 +127 «+137 
078 O88 o98 108 118 128 138 
079 089 O99 109 119 129 = 139 
oso 090 100 110 120 130 140 
141 151 161 171 Articles 
142 152 162 172 181 191 201 
143 153 163 173 182 192 202 
144 154 164 174 183 193 203 
145 155 165 175 184 194 204 
146 156 166 176 (185 195 205 
147 157 167 #177 186 196 206 
148 158 168 178 87 197 207 
149 159 169 179 188 198 208 
150 160 170 180 189 199 209 
199 200 210 


[_] Please send me a one year subscription to Dr. 
Dobb’s Journal at $25.00 and bill me later. 


For quicker, more effective processing 


of your inquiry, please provide responses 
to ALL requested information. 


DR. DOBB’S JOURNAL 





Reader Service Card 








Name Phone 
Address 
City /State /Zip 
Expiration Date: Oct. 31, 1985 July 1985 #106 
Please circle one for each category: 
I. My firm or department Is a: Vv. Authority 
A. Systems Integrator /House (check all that apply) 
B. Software Dev. Firm R. Recommend or Specify 
C. Hardware OEM or Manuf. S. Final Decision-Maker 
D. DP, MIS or Data Service T. No influence 
E. Consulting Firm VI. | advise others about computers, 
F. Eng. or Science Lab. on the average: 
G. Other 6. More Than Once-A-Day 
ll. My job function Is: 7. Once-A-Day 
H. Company Mgmt./Admin. 8. Once-A-Week 
J. Computer Systems Mgt. 9. Not At All 
K. Programmer /Technical Staff VII. | design / write software professionally 
L. Consultant U. Yes 
M. Engineering Mgmt. or Staff V. No 


N. Scientific Mgmt. or Staff 
O. Other 


lll. Number of employees in my firm: 
1. Less than 10 
2. 10—99 
3. 100—499 
4. 500—9,999 
5. 10,000—or More 


IV. This inquiry Is for: 
P. immediate Purchase 
Q. Future Project 


Vill. | buy computer products through: 
(check ail that apply) 

W. Retail Stores 

X. Mail Order Houses 

Y. On-site Direct Salespeople 


Z. All of the Above 

IX. | am currently a subscriber: 
A. Yes 
B. No 


Check each advertisement for corre- 
sponding number and circie below: 








001 O11 O21 O31 O41 O51 061 
002 O12 O22 032 O42 052 06. 
003 013 023 O33 043 053 O06: 
004 O14 024 034 044 054 064 
005 O15 O25 035 045 055 O06! 
006 O16 026 036 046 056 O6¢ 
007 O17 O27 O37 047 057 06 
00s O18 O28 038 048 058 O06 
009 O19 O29 039 049 059 06! 
010 020 030 040 O50 060 O7 
071 O81 091 101 111 121 13 
072 O82 O92 102 112 122 ~= «+13 
073 O83 093 103 113 123 «13 
074 084 094 104 1114 124 = 13 
075 O85 O95 105 4115 125 = 13 
076 O86 O96 106 116 126 13 
077. O87 O97 107 «+117 +127 «+13 
078 oss o98 108 118 128 13 
079 O89 O99 109 #119 «+129 «43 
oso 86090 100 110 120 130 14 
141 151 161 171 Articies 

142 152 162 172 | ‘181 9 ae 
143 153 163 173 182 192 2 
144 154 164 174 (183 193 2 
145 155 165 175 184 194 2 
146 156 166 176 185 95 2 
147 157 167 177 186 196 & 
148 158 168 178 187 197 & 
149 159 169 179 #188 #4198 & 
150 160 170 180 189 199 &X 

190 200 21 


[_] Please send me a one year subscription to [ 
Dobb’s Journal at $25.00 and bill me later. 


| | | | NO POSTAGE ‘ 


NECESSARY 
IF MAILED 
IN THE 
UNITED STATES 









BUSINESS REPLY MAIL 


FIRST CLASS PERMIT #27346, PHILADELPHIA, PA. 





POSTAGE WILL BE PAID BY ADDRESSEE 





SOFTWARE TOOLS FOR ADVANCED PROGRAMMERS 


Dr.Dobhb’s Journal 


P.O. BOX 13851 
PHILADELPHIA, PA 19101 


| | | NO POSTAGE 


NECESSARY 


IF MAILED 
IN THE 
UNITED STATES 





BUSINESS REPLY MAIL 


FIRST CLASS PERMIT #27346, PHILADELPHIA, PA. 





POSTAGE WILL BE PAID BY ADDRESSEE 


SOFTWARE TOOLS FOR ADVANCED PROGRAMMERS 
EE EY RVC RAMME RS 


Dr. Dobb's Journal 


P.O. BOX 13851 
PHILADELPHIA, PA 19101 











Dr. Dobb’s Stands Apart 





Take a good, hard look at the crowded computer magazine 
market. If you’re a serious microcomputerist, one maga- 
zine stands apart. Dr. Dobb’s Journal. 


Dr. Dobb’s is not for everyone. It is written by and for 
expert programmers, and it’s the oldest and most techni- 
cally sophisticated microcomputer publication available. 
Since 1976, Dr. Dobb’s Journal has been the unchal- 
lenged leading source of software tools for advanced 
programmers. 


With the industry moving forward faster than ever, you 
need to stay a step ahead. Dr. Dobb’s sets the pace with: 


@ regular columns on C, Unix, CP/M and 16-bit 
software; 


@ algorithms and problem solving; 
® lively discussions of fundamental software issues; 


® inside information on commercial languages and 
operating systems; 


® tips on advanced programming topics. 


The information and valuable code contained in Dr. 
Dobb’s makes each issue indispensable for serious com- 
puting professionals and enthusiasts. Don’t miss a single 
issue of this valuable resource. Subscribe today. If you 
aren’t fully satisfied, cancel your subscription and keep the 
first issue as a free sample. 


To start your subscription, 
fill out this coupon and return it to: 


Dr. Dobb’s Journal 
P.O. Box 27809, San Diego, CA 92128 


: Yes! Please enter my subscription for 12 issues of: 
$ Dr. Dobb’s Journal for $25. 


If I am not fully satisfied I will write “cancel” on my sub- 
scription invoice and keep the first issue as a free sample. 


a 
S 
= 


: Address 
© 

© City — $$ 
e@ 

© State 


: (| Bill me later (_] I’ve enclosed $25 Charge my [] VISA [|] M/C 











Zip 


$ Card No. 


. Expiration——£$&$&=™@—@ $$ $$ i ioe i—mé 
@ 








e 
e Signature 
& 


& 
® Offer good in U.S. only 


Soe Se ee ee eee 
SOFTWARE TOOLS FOR ADVANCED PROGRAMMERS 


Dr. Dobb's Journal 





If the initialization routine finds that the device is miss- 
ing or defective and wants to abort without using memo- 
ry, it should set the number of units to zero and set the 
ending address to CS:0000. 

The operating system services that the initialization 
code can invoke at load time are limited; the code can call 
only MSDOS services 01-OCH and 30H. This is adequate 
to check the DOS version number and display a driver 
identification message, but not much else. 

Many programmers position the initialization code at 
the end of the driver and return its address as the location 
of the first free memory; this allows the memory occupied 
by the code to be reclaimed after it is finished with its 
work. 

This routine is called with: 


RH+18 DWORD Pointer to the character after the = 
on the CONFIG.SYS line that 


Error Definition 


Write protect violation 
Unknown unit 

Drive not ready 
Unknown command 

CRC error | — 
Bad drive request structure length 
Seek error _ 
Unknown media 
sectornotfound 
Printer out of paper 
Write fault 

Read fault — 

General failure 

Reserved | 


—_< < 
= ©) 


te 
13-14 


15 Invalid disk change (MSDOS 3.x) 


| Table 5 
Driver error codes returned in bits 0-7 of return status word 
in request header. 


Byte(s) Contents 


O-1 Bytes per sector 
2 Sectors per allocation unit (must be power of 2) 
} Number of reserved sectors (starting at 

sector Q) 
Number of file allocation tables (FATs) 
Maximum number of root directory entries 
Total number of sectors in media 
Media descriptor byte 
Number of sectors occupied by a single FAT 


Table 6 
Format of BIOS parameter block; a copy of this block is 
always found in the boot sector of an initialized disk. 
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loaded driver; this information is 
read only 

Drive letter for first unit of a block 
driver: O=A, 1 =B, etc. (MSDOS 
3.x only) 


RH+22 BYTE 


This routine returns: 


RH+3 WORD Return status 

RH+13 BYTE Number of units (block devices only) 

RH+14 DWORD Address of first free memory above 
driver 

RH-+18 DWORD BPB pointer array (block devices 
only) 


Function 1—Media Check 
The media check function is used on block devices only 
and should be a NOP in character device drivers. This 
routine is called first by BDOS for a block device transfer, 
passing the current media descriptor byte (Table 7, page 
99). If feasible, the routine returns a code indicating 
whether the media has changed since the last transfer. 
This feature requires a machine that provides a door in- 
terlock hardware status flag or something similar. Deter- 
mining the media change status improves performance 
because MSDOS does not need to reread the file allocation 
table (FAT) for each directory access. 

This routine is called with: 


RH +1 BYTE 
RH+13 BYTE 


Unit code 
Media descriptor byte 


This routine returns: 


RH+3 WORD Return status 

RH+14 BYTE Media change code: 
—1 Media has changed 
Q Don’t know if media changed 
| Media has not changed 

RH+15 DWORD Pointer to previous volume ID, if 
device attribute bit 11 = 1 and 
media has changed (MSDOS 3.x 
only) 


Function 2—Build BIOS Parameter Block 
The build BPB function is supported on block devices only 
and should be a NOP for character devices. The BDOS 
uses it to get a pointer to the valid BPB (Table 6, at left) 
for the current media. This routine is called when the 
media check routine returns a “Media has changed”’ code 
or when it returns a “Don’t know if media changed”’ code 
and there are no dirty buffers (buffers with changed data 
that have not yet been written to disk). Thus this call 
indicates whether the media has legally changed. Under 
MSDOS 3.x, this function should also read the volume ID 
off the disk and save it. 

The build BPB call also receives a pointer to a one- 
sector buffer in the address field of the request header. If 
the “non-IBM-format” bit in the device attribute word is 
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zero, the buffer contains the first sector of the FAT, in- 
cluding the media descriptor byte, and should not be al- 
tered by the driver. If the “non-IBM-format” bit is set, the 
buffer may be used as scratch space. 

This routine is called with: 


RH+1 BYTE Unit code 
RH+13 BYTE Media descriptor byte 
RH+14 DWORD Buffer address 


This routine returns: 


RH+3 WORD Return status 
RH+18 DWORD Pointer to new BPB 


Function 3—1/O Control Read 
This function allows control information to be passed di- 
rectly from the application program to the device driver. 


It is called only if the IOCTL bit is set in the device header 8 
attribute word. No error check is performed on IOCTL | 4 


I/O calls. 
This routine is called with: 


RH+1 BYTE Unit code (block devices only) 

RH+13 BYTE Media descriptor byte 

RH+14 DWORD Transfer address 

RH+18 WORD Byte/Sector count 

RH+20 WORD Starting sector number (block 
devices only) 


This routine returns: 


RH+3 WORD Return status 
RH+18 WORD Actual bytes or sectors transferred 


Function 4—Read 


This function is available on character devices only. If an 

input status request returns a busy bit = 0 (characters wait- 

ing), the next character that would be read is returned to 

DOS but stays in the input buffer. This basically provides 

DOS with the capability to look ahead by one character. 
This routine returns: 


RH+3 WORD Return status 
RH+13 BYTE Character 


Function 6—Input Status 
This function is available on character devices only and 
returns the current input status for the device. MSDOS 


ia Descriptor Byte 









Significance 

Always set (= 1) 
1=removable —T 
O=notremovable 
1=8 sector 
O=not8 sector _ 
1=2 sided _ 


2 sided, 15 sector 
1 sided, 
2sided, 9s 
sided, 8 
2 sided, 
(fixed disk) 


This function transfers data from the device into the spec- .. 






ified memory buffer. Under MSDOS 3.x, the routine can — 


use the reference count of open files maintained by the _ 


open and close routines (functions 13 and 14) and the A 


media descriptor byte to determine whether the media 
has changed illegally. 
This routine is called with: 


RH+1 BYTE Unit code (block devices only) 

RH+13 BYTE Media descriptor byte 

RH+14 DWORD Transfer address 

RH+18 WORD Byte/Sector count 

RH+20 WORD Starting sector number (block 
devices only) 


This routine returns: 
RH+3 WORD § Return status 
RH+18 WORD Actual bytes or sectors transferred 
RH+22 DWORD Pointer to volume ID if error OFH is 
returned (MSDOS 3.x only) 


Function 5—WNondestructive Read 
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Atte : In 
ous ee 08 
-0070:01DD 8000 0 

| 0070:028E 8000 © | 
0070: 0300 8008 D08E Of 





)070:06FO 8000 O08E 0 
0070:0702 8000 008E 
-0070:0714 8000 


a End of device a 
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assumes all character devices have a type-ahead buffer. If 

the device does not have a type-ahead buffer, it should 

always return a busy bit = 0 so MSDOS will not hang. 
This routine returns: 


RH+3 WORD Return status 
Busy bit = | Read request goes to 
physical device 
Busy bit = 0 Characters already 
in device buffer; read request 
returns quickly 


Function 7—Flush Input Buffers 
This function is available on character devices only. It 
terminates all pending requests; i.e., the input buffer is 
emptied. 

This routine returns: 


RH+3 WORD § Return status 


Function 8—Write 

This routine transfers data from the specified memory 
buffer to the device. Under MSDOS 3.x, the routine can 
use the reference count of open files maintained by the 
open and close routines (functions 13 and 14) and the 
media descriptor byte to determine whether the media 
has changed illegally. 

This routine is called with: 


RH+1 BYTE — Unit code (block devices only) 

RH+13 BYTE Media descriptor byte 

RH+14 DWORD Transfer address 

RH+18 WORD  Byte/Sector count 

RH+20 WORD | Starting sector number (block 
devices only) 


This routine returns: 


RH+3 WORD Return status 

RH+18 WORD Actual bytes or sectors transferred 

RH+22 DWORD Pointer to volume ID if error OFH is 
returned (MSDOS 3.x only) 


Function J—Write with Verify 

This routine transfers data from the specified memory 
buffer to the device. If feasible, a read-after-write verifi- 
cation of the data is performed to confirm that the data 
was written correctly. Otherwise, it is exactly like func- 
tion 8. 


Function 10—Output Status 

This routine returns the current output status for the de- 

vice. This function is available on character devices only. 
This routine returns: 


RH+3 WORD Return status 
Busy bit = 1 Write request waits 





Language & 
Compiler Designers, 


Use State-Of-The-Art 
Parsing Technology With Our . 


LALR (4) 
Grammar Analyzer & 
Parser Table Generator 


Ae eo, 
e Small. Runs on IBM PC in 256K. 
e Fast. Processes 500 state grammars 
iN 1 min., 1000 states in 3 min. 


e Guaranteed. 100% refund if not 
satisfied within 30 days. 





EM si. for Only: cc. 
PAUL MANN $ A) 
450 E. First St., Suite B-300 

Tustin, CA 92680 
714-771-9530 = Sez. 


California Residents Add 6% Sales Tax 


Circle no. 60 on reader service card. 


100 


C Source Code 
RED 


Full Screen Text Editor 
IBM PC, Kaypro, CP/M 80 and CP/M 68K systems. 


* RED comes with a Reference 
Card and a Reference Manual 
that provides everything you 
need to use RED immediately. 


® RED is fast! RED uses all of 
your terminal’s special func- 
tions for best screen response. 
RED handles files as large as 
your disk automatically and 


¢ RED is unconditionally 
quickly. 


guaranteed. If for any reason 
you are not satisfied with RED 
your money will be refunded 


® RED is easy to use for writers 
Or programmers. RED’s com- 


mands are in plain English. promptly. 
¢ RED comes with complete 
source code in standard C. RED: $95 


RED has been ported to main- 
frames, minis and micros. 


Manual: $10 


Call or write today for 
for more information: 
Edward K. Ream 
1850 Summit Avenue 
Madison, WI 53705 
(608) 231-2952 






| 


edward k ream 





To order: 
Either the BDS C compiler or the Aztec CII compiler is required for CP/M 80 
systems. Digital Research C compiler v1.1 is required for CP/M 68K systems. No 


compiler is required for IBM or Kaypro systems. 


Specify both the machine desired (IBM, Kaypro or CP/M) and the disk format 
described (8 inch CP/M single density or exact type of 5% inch disk). 


Send a check or money order for $95 ($105 U.S. for foreign orders). Sorry, I do 
NOT accept phone, credit card, or COD orders. Please do not send purchase orders 
unless a check is included. Your order will be mailed to you within one week. 


Dealer inquiries invited. 


Circle no. 13 on reader service card. 


Dr. Dobb’s Journal, July 1985 





for completion of current 
request 

Busy bit = 0 Device idle; write 
request starts immediately 


Function 11—Flush Output Buffers 
This function is available on character devices only and 
terminates all pending output requests. The output buff- 
er, if any, is emptied. 

This routine returns: 


RH+3 WORD § Return status 


Function 12—I1l/O Control Write 
This function allows control information to be passed di- 
rectly from the driver to the application program. It is 
called only if the IOCTL bit is set in the device header 
attribute word. No error check is performed on IOCTL 
I/O calls. 

This routine is called with: 


RH+1 BYTE Unit code (block devices only) 

RH+13 BYTE Media descriptor byte 

RH+14 DWORD Transfer address 

RH+18 WORD Byte/Sector count 

RH+20 WORD Starting sector number (block 
devices only) 


This routine returns: 


RH+3 WORD Return status 
RH+18 WORD Actual bytes or sectors transferred 


Function 13——Open 

This function is available on MSDOS version 3.0 and 
above only and is called only if the open/close/RM bit is 
set in the device attribute word. 

Block devices may use the open function to manage 
local buffering and to increment a reference count of the 
number of open files on a device. 

Character devices can use this function to send a device 
initialization string, which in turn can be set by IOCTL 
Write. Note that the predefined CON, AUX, and PRN 
devices are always open. 

This routine is called with: 


This routine returns: 
RH+3 WORD § Return status 


Function 14—Device Close 

This function is available on MSDOS version 3.0 and 
above only and is called only if the open/close/RM bit is 
set in the device attribute word. 

On block devices, this function can manage local buff- 
ering and decrement a reference count keeping track of 
the number of open files on the device; when the count 
reaches zero, all files have been closed, and the driver 
should flush buffers because the user may change disks. 

On character devices, this function can send a device- 
dependent post-I/O string such as a form feed, which in 
turn can be set by an IOCTL Write. Note that the CON, 
AUX, and PRN devices are never closed. 

This routine is called with: 

RH+1 


BYTE Unit code (block devices only) 


This routine returns: 
RH+3 WORD § Return status 


Function 15—Removable Media 

This function is available on MSDOS version 3.0 and above 

only and is called only if the open/close/RM bit is set in 

the device attribute word and the device is a block type. 
This routine is called with: 

RH+1 


BYTE — Unit code (block devices only) 


This routine returns: 
RH+3 WORD § Return status 
Busy bit = | Media is non- 


removable 
Busy bit = 0 Media is removable 


DDJ 


Reader Ballot 
Vote for your favorite feature/article. 





RH+1 BYTE Unit code (block devices only) Circle Reader Service No. 196. 


16-Bi f Toolbox Lis tin g (Text begins on page 94) 


1 name driver 

2 page ao y koe 

3 title 'DRIVER --- installable driver template' 

4 

5 ; 

6 - This is a "template" for a MS-DOS installable device driver. 
r » The actual driver subroutines are stubs only and have 

8 : no effect but to return a non-error "done" status. 

9 ‘ 

10 » Ray Duncan, April 1985 


(Continued on next page) 
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16-Bi f Toolbox Lis f ing (Listing Continued, text begins on page 94) 


11 ; Laboratory Microsystems Inc. 

12 

13 0000 code § segment public 'CODE! 

14 

15 0000 driver proc far 

16 

17 assume cs:code,ds:code,es:code 

18 

19 0000 org 0 

20 

21 = OO0F Max_Cmd equ 15 ; driver command code maximum 
22 ; 12 for MS-DOS 2.x, 

23 ; 15 for MS-DOS 3.x 

24 

25 = 000D cr equ Odh ; ASCII carriage return 

26 = 000A lf equ Oah ; ASCII line feed 

27 = 0024 eom equ 3" ; end of message signal 

28 

29 page 

30 & 

31 ; Device Driver Header 

32 - 

33 0000 FF FF FF FF Header dd =f ;link to next device,-1= end of List 
34 

a 0004 8000 dw 8000h ;attribute word 

36 ;bit 15=1 for character devices 
37 

38 0006 0056 R dw Strat ;device "Strategy" entry point 
39 

40 0008 0061 R dw Intr ;device "Intrrupt" entry point 
41 

42 OOOA 44 52 49 56 45 52 db 'DRIVER ! ;char device name, 8 char, or 
43 20 20 

44 ;if block device, no. of units 
45 ;in first byte followed by 

46 ;7 don't care bytes 

47 

48 : 

49 ; local variables for use by driver 

50 . 

21 0012 222277227 RH_Ptr dd ? ; pointer to request header 

52 ; passed to Strat by BDOS 

53 

54 0016 OD OA OA Ident db er, lt.tf 

55 0019 45 78 61 6D 70 6C db "Example Device Driver 1.0! 

56 65 20 44 65 76 69 

57 63 65 20 44 72 69 

58 76 65 72 20 31 2E 

59 30 

60 0032 OD OA OA 24 db cr, lf,lf,eom 

61 

62 page 

63 

64 ; 

65 ; Driver Command Codes dispatch table 

66 ; 

67 ; The "Intr" routine uses this table and the Command Code 

68 ; supplied in the Request Header to transfer to the 

69 ; appropriate driver subroutine. 

70 

71 0036 Dispatch: 

72 

73 0036 OOBA R dw Init ; O = init driver into system 
74 0038 O09C R dw Media Chk ; 1 = media check on blk dev 
75 003A OO09E R dw Build Bpb ; 2 = build BIOS param block 
76 003C OO0AOD R dw Toctl_Inp ; 3 = 1/0 ctrl read from dev 
77 OO3E OO0A2 R dw Input ; 4 = normal destructive read 
78 0040 O0A4 R Cw Nd _ Input ; 5 = non-destructive read,no wait 
79 0042 OO0A6 R dw Inp Stat ; 6 = return current input status 
80 0044 OOA8 R dw Inp Flush ; 7? = flush device input buffers 
81 0046 OOAA R dw Output ; 8 = normal output to device 
82 0048 OOAC R dw Outp Vfy ; 9 = output with verify 

83 004A OOAE R dw Outp Stat ; 10 = return current output status 


(Continued on page 104) 
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C Programmers: 
File System Utility Libraries 


Source Code Included, No Royalties, 
Powerful & Portable. 


BTree Library $75.” 


High speed random and sequential access. 
Multiple keys per data file. 

Up to 16 million records per file. 

Full documentation and example programs included. 


nee Driver $40.” 


Works with the BTree Library. 

Greatly speeds application development. 

Combines ease of use of database manager with flex- 
bility of programming language. 

Supports multi key files and dynamic index definition. 
Very easy to use; fully documented; example pro- 
grams included. 


Both products 


Are written entirely in K&R C. 
Come with complete source code. + $3.00 Shipping & 
Are free of any royalty charges. Handling Charge. 


WIZAaRO C 


..written by someone who has been in the business 















while. This especially shows in the documentation.” 


Computer Language 
February, 1985 





Ail UNIX System V language features 
Support for 8087, 80186 and 80286 
Full library source code included 
Cross-file checks (full UNIX lint) 

Uses MS-LINK or PLINK 86 

e ROMable data options 


In-line assembly lanzuapze 


Cross compilers available 


Third party software available, including, PANEL 


The new standard for C Compilers on MSDOS! 





Only $450. 
(617) 641-2379 


11 Willow Court 
Arlington, MA 02174 
WV 7A RD 


sane 
Systems Software, Inc. mannan oo 


For more information call: . 
1277 Pallatine Drive 


Oakville, Ontario, Canada 
L6H 121 
(416) 844-2610 


Credit cards accepted. Dealer inquiries invited. 











Circle no. 116 on reader service card. 


It’s a real bargain! Here’s why: 
e Only $49.95 plus shipping e Phase/dephase 
e 8080 to Z-80 Source Code e Separate data, program, common 
Converter and absolute program spaces 
e Generates Microsoft compatible e Customize the Macro Assembler to 
REL files or INTEL compatible hex —_ your requirements with installation 
files program 


e Compatible with Digital Research e Cross-reference Generation 
macro assemblers MAC & RMAC 


on e Z-80 Linker and Library Manager 
° Generates Ditigal Research for Microsoft compatible REL files 
compatible SYM files available as a total package with 
e Full Zilog mnemonics Macro Assembler for only $95.00 
e INCLUDE and MACLIB files plus shipping 


e Conditional assembly e Manual only is $15 





Circle no. 66 on reader service card. 





16-Bi f Toolbox Lis ting (Listing Continued, text begins on page 94) 


84 004cC O0B0 R dw Outp Flush ; 11 = flush output buffers 

85 004E O0B2 R dw loctl_Outp ; 12 = 1/0 control output 

86 0050 O00B4 R dw Dev_Open ; 13 = device open (MS-DOS 3.x) 
87 0052 O0B6 R dw Dev_ Close ; 14 = device close _ (MS-DOS 3.x) 
88 0054 0088 R dw Rem Media ; 15 = removeable media (MS-DOS 3.x) 
89 

90 page 

91 

92 ; MS-DOS Request Header structure definition 

93 . 

94 ; The first 13 bytes of the Request Header are the same 

95 ; for all Command codes and are termed the "Static" part of 

96 ; the Header. The number and meaning of the following bytes 

97 ; vary depending on the Command code. 

98 . 

99 ; The Request Header shown here applies to Read & Write functions. 
100 : 

101 

102 Request struc ; request header template structure 
103 

104 0000 77 Rlength db ? ; length of request header 

105 0001 ?? Unit db ? ; unit number for this request 
106 0002 ?? Command db ? ; request header's command code 
107 0003 777? Status dw ? ; driver's return status word 
108 0005 08 [ Reserve db 8 dup (7?) ; reserved area 

109 2? 

110 ] 

111 

112 000D ?? Media db ? ; media descriptor byte 

113 OODE 7777772? Address dd ? ; memory address for transfer 
114 0012 777? Count dw : ; byte/sector count value 

115 0014 7277 Sector dw ? ; starting sector value 

116 

117 0016 Request ends ; end of request header template 
118 

119 page 

120 

121 ; Device Driver "Strategy Routine" 

122 

123 ; Each time a request is made for this device, the BDOS 

124 ; first calls "Strategy routine", then immediately calls 

125 ; the "Interrupt routine". 

126 

127 ; The Strategy routine is passed the address of the 

128 ; Request Header in ES:BX, which it saves in a local 

129 ; variable and then returns to BDOS. 

130 

131 0056 | Strat...-proc far 

132 ; save address of Request Header 
133 0056 2E: 89 1E 0012 R mov word ptr cs: [RH_Ptr] ,bx 

134 0058 2E: 8C 06 0014 R mov word ptr cs: (RH Ptr+2],es 

135 

136 0060 CB ret ; back to BDOS 

137 

138 0061 Strat endp 

139 

140 page 

141 

142 

143 ; Device Driver "Interrupt Routine" 

144 

145 ; This entry point is called by the BDOS immediately after 

146 ; the call to the "Strategy Routine", which saved the long 

147 ; address of the Request Header in the local variable ‘RH Ptr". 
148 

149 ; The "Interrupt Routine" uses the Command Code passed in 

150 ; the Request Header to transfer to the appropriate device 

151 ; handling routine. Each command code routine is responsible 
152 ; for any necessary return information into the Request Header, 
a ; then transfers to Error or Exit to set the Return Status code. 
155 0061 Intr proc far 
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156 


157 0061 50 push ax ; save general registers 
158 0062 53 push bx 
159 0063 51 push cx 
160 0064 52 push dx 
161 0065 1E push ds 
162 0066 06 push es 
163 0067 57 push di 
164 0068 56 push Si 
165 0069 55 push bp 
166 
167 006A OE push cs ; make local data addressable 
168 006B 1F pop ds 
169 
4 006C C4 3E 0012 R les di, [RH Ptr] > ES:DI = Request Header 
172 > get BX = Command Code 
173 0070 26: 8A 5D 02 mov bl,es: [di .Command] 
174 0074 32 FF xor bh, bh 
175 0076 83 FB OF cmp bx ,Max_Cmd : make sure its legal 
176 0079 7F 06 jg Unk_Command * too big, exit with error code 
177 007B Di E3 shl bx, 1 : form index to Dispatch table 
178 : and branch to driver routine 
179 007D FF A7 0036 R jmp word ptr [(bx+Dispatch] 
180 
181 page 
182 
183 
184 > General collection of exit points for the driver routines. 
185 
186 
187 0081 Unk_Command: : Come here if Command Code too big. 
188 0081 BO 03 mov al,3 > Sets "Unknown Command" error 
189 : code and "Done" bit. 
190 
191 0083 Error: : Transfer here with AL = error code. 
192 0083 B4 81 mov ah,8ih : Sets "Error" and "Done" bits. 
193 0085 EB 03 90 jmp Exit 
194 
195 0088 B4 01 Done: mov ah, 1 : Come here if 1/0 complete and 
196 ; no error, sets "Done" bit only. 
197 
198 
199 008A Exit: ; General purpose exit point. 
200 : Transfer here with AX = 
201 ; Return Status word to be 
— 202 ; placed into Request Header. 
203 
204 OO8A 2E: C5 1E 0012 R lds bx,cs: [RH Ptr] ; set status 
205 OO8F 89 47 03 Mov ds: [bx. Status] , ax 
206 
207 0092 5D pop bp srestore general registers 
208 0093 5E pop Si 
209 0094 5F pop di 
210 0095 07 pop es 
211 0096 1F pop ds 
Zie 0097 5A pop dx 
213 0098 59 pop CX 
214 0099 5B pop bx 
215 OO9A 58 pop ax 
216 009B CB ret ; back to BDOS 
elt 
218 page 
219 
220 ; 
221 : Function 1 Media Check 
222 ; 
223 009C Media Chk: 
224 oo9c EB EA jmp Done 
225 
226 ; 
227 » Function 2 Build BIOS Parameter Block 
228 ; 
229 OO9E Build Bpb: 
230 OO9E EB E8 jmp Done 
231 


(Continued on next page) 
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MYSTIC 
PASCAL 


IS 10 TO 1000 
TIMES FASTER 
THAN TURBO 


Mystic Pascal compiles at over 100,000 
lines per minute on a standard IBM PC. 
How? When you change a few lines of 
code, other Pascals make you recompile 
the whole program— Mystic only recom- 
piles those lines. As if thats not fast 
enough, the compiler even runs in the 
background while you are editing. You 
can recompile a 2000 line program usually 
in less than one second. 








Mystic produces 8086 object code, opti- 
mized on two levels. The single precision 
floating point is 5 to 50 times faster than 
any other compiler. 4000 multiplications 
or 2000 divisions per second, without an 
8087— compare that to your present 
Pascal! 


Still not sold?! OK. Mystic Pascal is also 
interactive— Pascal statements can be in- 
stantly compiled and executed. And 
there’s a Full Screen Editor. And Help 
windows for the Standard Pascal 
language. And support for multi-tasking. 
And its only— 


$39.95! 


Requires an IBM PC or true compatible 
with 256K. Turbo Pascal is a registered 
trademark of Borland International, Inc. 


MYSTIC CANYON SOFTWARE 
P.O. Box 1010 
Pecos, New Mexico 87552 





















Place your order today! 
Phone or use the coupon! 


(505) 988-4214 







Name 






Address 







City 





State 





Zip 
Price is $39.95 plus $4 shipping. 

Outside US & Canada add $20 shipping. 
Payment must be in US funds on a US 
bank. Purchase orders accepted from 
recognized institutions. 

NM residents add sales tax. 


[] Check/MO OM] COD 0 VISA HO MC 
Card 










Exp. 


Signature 





Circle no. 30 on reader service card. 
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16-Bi f Toolbox Lis ting (Listing Continued, text begins on page 94) 


232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 


OOA0 
OOAO 


OOA2 
OOA2 


OOA4 
OO0A4 


OOA6 
O0A6 


O00A8 
O0A8 


OOAA 
OOAA 


OOAC 
OOAC 


OOAE 
OOAE 


00B0 
00B0 


00B2 
O0OB2 


00B4 
00B4 


00B6 
00B6 


EB E6 


EB E4 


EB E2 


EB £0 


EB DE 


EB DC 


EB DA 


EB D8 


EB D6 


EB D4 


EB D2 


EB DO 


; Function 3. 1/0 Control Read 


loctl_Inp: 
jmp Done 


Function 4 Read from Device 


—~ =e Se Se 


nput: 
jmp Done 


Function 5 Non-destructive Read 


Zzs Me Be 


d_ Input: 
jmp done 


’ 
; Function 6 Return Input Status 


Inp_Stat: 
jmp Done 


s 
‘ 


; Function 7 Flush Input Buffers 


Inp_Flush: 
jmp Done 


. 
‘ 


; Function 8 Write to Device 


Output: 
jmp Done 


. 
f 


; Function 9 Write with Verify 


Outp_Vfy: 
jmp Done 


; Function 10 Return Output Status 
Outp Stat: 
jmp Done 


a 
’ 


; Function 11. Flush Output Buffers 
Outp Flush: 
jmp Done 


; Function 12 1/0 Control Write 


Ioctl_Outp: 
jmp Done 


Function 13 Device Open (MS-DOS 3.x) 


=e Se Be 


Dev_Open: 
jmp Done 


; Function 14 Device Close (MS-DOS 3.x) 
Dev_ Close: 
jmp Done 


(Continued on page 108) 
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Variable 54, 
Where Are You? 


Is programming the lastest game of Trivial Pursuits? 
e ls this the latest listing? 
e Where else is this variable changed? 
e Where is this procedure used? 


TSF’s Source Locator helps you stay productive 


Source code listings 
@ volume, path, file name, and time-stamp 
@ your project and proprietary information markings 
@ \ine numbers, line-wrap at word boundries, and more 


Cross-reference listings (data and procedures) 
@ assembler, BASIC, C, and PASCAL 


@ usage (value or assignment) and scope (global or local) 

















DO YOU MEASURE 
ACG COMPILER? 


e CODE SPEED & SIZE 
The Lattice C Compiler “gener- @ O COMPILE TIME 


ates code that is quite compact e UNIX V COMPATIBILITY 
and fast running.” Peter Norton, e DOCUMENTATION 










PC Magazine ¢ UPDATE POLICIES Soe Sones 

e CONSISTENT RELIABILITY e COOPERATING PRODUCTS Combine any number of files and languages 
“The Lattice Compiler has per- e AVAILABILITY OF CROSS to provide a comprehensive index for an entire 
formed reliably and predictably.” a lt A program or system. 
R. Phraner, Byte Magazine ° 

¢ THIRD-PARTY LIBRARIES SATISFACTION GUARANTEED! The Source Locator 
More than 40 ey # oducts Ask About Our “Trade Up To 
aed es Lattice C° Policy Introductory Price $29 95 


e DEBUGGER SUPPORT 


retagcomte oo [Ol] LATTICE 


For the IBM PC, XT, AT and compatibles, DOS 2.0+ 










° ALL MEMORY MODELS Se —_TSF Dept. A-1 
Lattice C has 7 memory models _Lattice®, Inc. 649 Mission St. San Francisco, CA. 94105 
available to allow the best solu- P. 0. Box 3148 
tion for the task at hand (32) Bes en 38 (445) 957-0144 
a al TWX 910-291-2190 Mae tok Pio Petco Shinerag &: ending Deain oad one lioaes, 


inquiries invited. Not copy protected. 
Belgium: Softshop. Phone: (32) 53-664875. 


England: Roundhill. Phone: (0672) 54675. 
Japan: Lifeboat. Phone: (03) 293-4711. 


Circle‘no. 34 on reader service card. 


Circle no. 58 on reader service card. 


“Little Board” 
MAIN/FRAMES 


6 Models from °425* 


3310 
5” Floppy/Winchester 
4Cards $387° 
$100 


3002T 3307 


5” Floppy/Winchester 8” Floppy/5” Winchester 
40 Cards $565* 7Cards $494* 
$100 $100 


pn FROM 
GSA iain/FRAMES & DISC ENCLOSURES $4 QQ 


| ep (1 piece") 

MODEL 2800 

Includes power supply & fan 
(Disk Drives and Little Board not included) 
AMPRO & Little Board are TM AMPRO computers. 





LASER 3000 DISC/COVERS (not shown) *1 piece; prices lower in quantity. 


py, 
- racer ‘540° 2 ea. 5” Wiactsseted $199* oe IEG a “|X | » 


RESEARCH CORPORATION 
(Disk drives not included) 8620 Roosevelt Ave./Visalia, CA 93291 209/651-1203 


RESEARCH CORPORATION 
8620 Roosevelt Ave./Visalia, CA 93294 


209/654-4203 





Circle no. 15 on reader service card. 
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16-Bi t Toolbox Lis ting (Listing continued, text begins on page 94) 


305 

306 

307 00B8 

308 OOB8 EB CE 
309 

310 

311 

312 

315 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 OOBA 

325 

326 OOBA 06 
327 OOBB 57 
328 OOBC B4 09 
329 OOBE BA 0016 R 
330 00C1 CD 21 
331 00C3 5F 
332 00c4 07 
333 

334 00C5 26: C7 45 OE OOBA R 
335 OOCB 26: 8C 4D 10 
336 OOCF EB B7 
337 

338 

339 00D 1 

340 

341 00D 1 

342 

343 00D 1 

344 

345 


Structures and records: 


Name 


Name 


Dey CtOse eS Pee 
DEV PON ec oe a ob es 
DUSPATOM: «5 s¢-- Scouitia vepnuacgteb: we een 
DONE sock ena eee ee 
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; Function 15 Removeable Media (MS-DOS 3.x) 


’ 
Rem Media: 


=e Ss Ss & =e Se @& = es *& . 


Jmp Done 


page 


; The Initialization code for the driver is called only once 
; when the driver is loaded. 


In this example, it returns its 
own address to the DOS as the start of free memory after the 


; driver, so that the memory occupied by INIT will be reclaimed 
; after it is finishec with its work. 


Only MS-DOS services 01-OCH 
and 30H can be called by the INIT code. 


; Block device drivers must also return the number of units and 


the address of the BIOS Parameter Block pointer array; if all 
units are the same, all pointers can point to the same BPB. 


Init: ; Function 0 
; initialize device driver 
push es ; push Request Header addr 
push di 
mov ah,9 ; print sign-on message 
mov dx,offset Ident 
int 21h 
pop di ; restore Request Header addr 
pop es 
; set first usable memory addr. 
mov word ptr es: [di.Address] ,offset Init 
mov word ptr es: [di.Address+2] ,cs 
jmp Done 
Intr endp 
Driver endp 
code ends 
end 
Width # fields 
Shift Width Mask Initial 
0016 0009 
0000 
0001 
0002 
0003 
0005 
000D 
OO0E 
0012 
0014 
Size Align Combine Class 
00D 1 PARA PUBLIC 'CODE! 
Type Value Attr 
L NEAR OO9E CODE 
Number 000D 
L NEAR OOB6 CODE 
L NEAR 00B4 CODE 
L NEAR 0036 CODE 
L NEAR 0088 CODE 
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DRIVER 5 See. see 6 erin ees F PROC 0000 
ROMs tak coe de ws De) wr eee eee Number 0024 
BURN sb epee ore, Be owe op L NEAR 0083 
Pe a ee ea ey Ee a L NEAR OO8A 
MERDER co 6 Sree ee. i ee L DWORD 0000 
POP eck eee em ol aa te” L BYTE 0016 
ts sa ee we ek Pee es L NEAR OOBA 
Peis & eos «8 Oe Ce ae 8 L NEAR OOA2 
INP_FLUSH. . . - 2+ ee ee es L NEAR OOA8 
THPCSTAT ww a ee L NEAR OOA6 
Te te ee OF ORS We F PROC 0061 
IOCTL_INP. . 2 eee ee eee L NEAR OOAO 
IOCTL_ OUTP . 2. 2 2 2 es ee es L NEAR OOB2 
Leet. ee eee oe ee Number OQOOA 
MAX CMD. . .- - - + e+ se ees Number OOOF 
MEDIA CHK. . .- +--+ 22+ eee = L NEAR O09C 
ND INPUT. 2. 2-2 ee ee ees L NEAR OOA4 
i oe ee ee L NEAR OOAA 
OUTP_FLUSH . 2... - es ee ae L NEAR OOBO 
OUTP_ STAT. . 2. - eee ee ees L NEAR OOAE 
te VEN wo, wie eee Ww, we L NEAR OOAC 
REM MEDIA. . ..- +--+ ++ ees L NEAR OOB8 
Po) nn L DWORD 0012 
<i. ee a ae F PROC 0056 
UNK_COMMAND. . . 2. 2. 2 ee ees L NEAR 0081 


49190 Bytes free 


Warning Severe 
Errors Errors 
0 0 








secosossoes 
BRARPRRR OG 
sossceocess 
SeRRERRERe 


e000 @0690000800e@9 


y4 
® 
6 


Realtime on MSDOS? Csharp can do it! Get the tools without operating system overhead. Cut development time with C source 
code for realtime data acquisition and control. Csharp includes: graphics, event handling, procedure scheduling, state system 


CODE 


CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 


CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 


Length =00D1 


Length =0070 


Length =000B 


End Listing 





control, and interrupt handling. Processor, device, and operating system independent. Csharp runs standalone or with: MSDOS, 
PCDOS, or RT11. Csharp runs on: PDP-11 and IBM PC. Csharp includes drivers for Hercules and IBM graphics boards, Data 
Translation and Metrabyte iO boards, real time clock, and more. Inauire for Victor 9000, Unix, and other systems. Price: $600 


oo 


SYSTEMS 





ee en (617) 451-8479 


Circle no. 50 on reader service card. 
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GO OTT a a GAVE yin aN Ge 





by Michael Wiesenberg 


I’ve received a lot of response to the 
first two “Computer Calisthenics”’ 
columns. 

The first puzzle in the November 
1984 issue was: 

There are two world-famed math- 
ematicians, Mr. P and Mr. S. A 
friend of theirs who likes puzzles 
tells both of them that he has two 
numbers in mind. The only thing he 
will tell both of them about these two 
numbers is that they are both inte- 
gers, greater than I, and they are not 
the same. 

He then whispers to Mr. P. the 
product of the two numbers. 

He whispers to Mr. S the sum of 
the two numbers. 

Mr. P knows that Mr. S knows the 
sum, but he doesn’t know what that 
sum is. Similarly, Mr. S knows that 
Mr. P knows the product, but he 
doesn’t know what that product is. 

The following conversation then 
takes place: 

Mr:> 2: 
numbers.” 

Mr. S: “TI know that; I also don’t 
know the numbers.” 

Mr. P: “Oh, then I know the 
numbers.”’ 

Mr. S: “Really, then I do also.” 

Your task, of course, is to discover 
the two numbers. It would take you a 
long time to figure them out by hand, 
sO write a program to do it. A short 
program. 

Many offered programmatic solu- 
tions that produced the correct an- 
swer, but, unfortunately, they also 
yielded other sets of answers that 
were wrong. 

Let’s see what’s happening at each 
statement. I’m going to give Alan 
Tracht, of Cleveland Heights, OH, 
an honorable mention for coming up 
with the correct reasoning required to 
solve the puzzle programmatically, 


“TIT don’t know the 
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but he doesn’t get the t-shirt because 
his program is one of those that yields 
too many answers: 
(1) Mr. P: “I don’t know the num- 
bers.”’ They are not both prime. 
(2) Mr. S: “I know that ....” The 
numbers cannot be the sum of two 
primes. 
(3) “... I also don’t know the num- 
bers.’ The sum is at least 7, so that it 
can be the sum of at least two differ- 
ent pairs of numbers. 
(4) Mr. P: ““Oh, then I know the num- 
bers.”’ Of all the factor-pairs of the 
product, only one sums to a number 
that cannot be the sum of two primes. 
(5S) Mr. S: ‘“‘Really, then I do also.” 
Of all the addend-pairs, only one 
multiplies to a product that gives Mr. 
P the answer (under the conditions of 
the previous statement). 

Let’s see why certain sets of num- 
bers fail one or more of the tests. 


(5, 7): P=35, S=12 


Mr. P would not have made state- 
ment 1. 


(5, 6): P=30, S=11 


Knowing the product, Mr. P would 
have made his first statement. Know- 
ing the sum, Mr. S would have made 
statements 2 and 3. At this point, 
however, Mr. P still would not know 
whether his product of 30 was formed 
from the pair (5, 6) or (2, 15), and so 
would not have made statement 4. 


(4, 61): P=244, S=65 


This was the most common incorrect 
answer. These two numbers do not 
satisfy statement 5, because (4, 61) 
and (8, 57) each satisfy statement 4. 

Mike Meyer, of Norman, OK, pro- 
vided an interesting extension of this 


problem, showing how this puzzle is 
the first of an infinite sequence of puz- 
Zles; that is, the conversation becomes: 
Mrs ~P:. “don 
numbers.” 
Mr. S: “I know that; I also don’t 
know the numbers.” 
Puzzle 1: 
Mr. P: 
numbers.” 
Mr. S: “I still don’t know the num- 
bers, either.” 
Puzzle 2: 


know the 


“T still don’t know the 


and so on. At each point, which we 
can label n, insert the sequence: 


Mr. P: “‘Oh, then I know the 
numbers.” 
Mr. S: “Really, then I do also.” 


to create puzzle number n. 

Interesting. The question is: who 
can solve one of those now? 

The award goes to Charles Wells 
of the Department of Mathematics 
and Statistics, Case Western Univer- 
sity, Cleveland, OH. The answer spit 
out by his program (Listing One, 
page114) after running all night is (4, 
13). He ran the program up to num- 
ber pairs including 40, at which point 
he says it ran very slowly. He also im- 
plies that there might be larger an- 
swers, but “I refuse to believe any- 
One, mathematician or otherwise, 
could work this out for numbers 
above 20 in his head.” Agreed. Per- 
haps I should have added to the puz- 
zle the proviso that neither number 
was greater than 100, but nowhere 
did I say that the two world-famed 
mathematicians were idiot savants. 
Each would know that the other 
could not come up with an answer in 
his head for numbers greater than 
100. 
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Although scores of entrants tried 
their hand at the preceding problem 
in logic, only two essayed the much 
easier task of programmatically de- 
scribing a horse. J. C. Williams, of 
Cincinnati, OH, wins the prize for his 
program, presented in its entirety in 
these two lines: 


FUNCTION HORSE( ) RETURN 
BOOLEAN 
RETURN FALSE 


He includes this “proof”: “The 
function (program) is quite obviously 
a neigh-sayer,’ and appends the com- 
ment “‘(Sorry).” I presume he is apol- 
ogizing for the pun, but that sort of 
originality was precisely what I was 
hoping for. 

December’s problem inspired more 
than double the entries of Novem- 
ber’s: 

Assign a numerical value to each 
letter of the alphabet, starting with 1 
for A and going up to 26 for Z. Any 
word in the English language has a 
value obtained by multiplying the 
values for each of its letters. For ex- 
ample, the word hello is worth 
86,400, obtained by multiplying 8 X 
5 X 12 X 12 X 15. Which English 
word is equal to exactly 1,000,000? 
If there is none, which is the closest? 
Only words found in The Random 
House Dictionary of the English Lan- 
guage (unabridged edition) can be 
used. No capitalized words, none 
with hyphens or other embedded 
punctuation, nor those designated as 
foreign. 

Well, how about it, folks? Can you 
devise a program that finds the right 
word? And, having done that, can 
you tell us what that word is? Your 
program must be short and elegant. 
The algorithms can be demonstrated 
in a good pseudolanguage if you 
wish or perhaps in flowcharts. 

Several entrants sent me words 
that multiplied out to 1,000,000, but 
I did not award any of them a t-shirt 
for several reasons. Many discovered 
that the word typey has a value of 
1,000,000 and told me what dictio- 
naries they had found it in. Others 
offered tetty, defined in the Oxford 
English Dictionary (OED) as a form 
of “testy.” (It’s also in my Webster's 


Dr. Dobb’s Journal, July 1985 


New International Dictionary, sec- 
ond edition.) The OED also yields 
tytte, an old form of “teat.” 

Those who sent me only one of 
these words did not qualify for the 
prize, because I asked for a program, 
not just an answer. Those who includ- 
ed a program that yielded only one of 
these words also did not win, because 
they did not follow the rules. I speci- 
fied the Random House Dictionary 
for a number of reasons, and it does 
not contain typey, tetty, or tytte. 

Why this particular dictionary? It 
is available as a dictionary program 
and thus does not necessitate typing 
in a whole dictionary full of words. 
Also, it is free of what I call “‘cross- 
word puzzle dictionary words’’—ob- 
solete words, archaic variants, and 
other words that are seldom found in 
use today. Furthermore, not all the 
words in it are in the electronic dic- 
tionary. No currently available elec- 
tronic dictionary even comes close to 
having as many words as its “hard 
copy’ counterpart does. It is an un- 
usual spelling checker that has even 
50,000 words, and yet the tome of 
over 2000 pages that is my main ref- 
erence work contains in excess of 
260,000 entries, and there are many 
more words than entries. For exam- 
ple, tablet is a separate entry, but 
tableted is not. Kaleidoscopically is 
not a separate entry; it is found at the 
end of the definition for kaleido- 
scope. Spelling checkers are even 
more limited: they usually have only 
one form of each word. The plurals of 
nouns, the progressive forms of verbs, 
and so on, are often not there. The 
point I wished to make, which most 
people did not get, was that perhaps 
brute force, in the form of examining 
every word in a given dictionary, is 
not the way to solve this puzzle. 

I commend all those who wrote pro- 
grams generating all possible candi- 
dates and embedded in their programs 
the logic that the letters forming the 
hypothetical word must be multiples 
of 2 or 5 or both, those being the only 
prime factors of 1,000,000; that is, if a 
word exists in the specified dictionary 
that multiplies out exactly to 
1,000,000, it must consist of some 
cumbination of B, D, E, H, J, P, T, 
and Y. Any qualifying word can have, 
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in addition, any number of As, that 
being a “free” letter because its addi- 
tion to a word merely multiplies the 
product by 1. In fact, Ulrich Sonder- 
mann, of Concord, CA, chastised me 
for specifying the values of the letters 
to be | through 26, rather than 2 
through 27—which, he said, was the 
way the problem was originally stated 
in the puzzle magazine. (The best 
word in that contest was ixodid, a 
kind of tick; Ulrich submitted the cor- 
rect answer in that contest.) Ah, but I 
did not wish to repeat a previously 
published puzzle, and I did want a 
“free” letter because I wanted to pro- 
vide a different kind of puzzle. 

Ulrich deserves mention for anoth- 
er reason. He wrote his program in 
BASIC on a Timex/Sinclair: quite a 
feat! It generated 123 candidates (us- 
ing the values I specified) in four 
minutes. He also provided a good al- 
gorithm for finding out if a given 
electronic dictionary contains any 
words consisting of these letter com- 
binations. He said, “The problem 
then consists of creating a dictionary 
with words that have letters sorted in 
descending order. A match can then 
be made with each of the 123 candi- 
dates.” (But what about the 124th 
candidate, Ulrich?) 

I commend those of you who wrote 
such programs, but I did not award 
you prizes because I am not yet con- 
vinced that the Random House Dic- 
tionary has a word multiplying out to 
exactly 1,000,000 and because, with 
one notable exception, none of the 
programs accounted for the fact that 
adding any number of As to a word 
does not change its value. 

Among the preceding, I give hon- 
orable mention to both Ken Waldron, 
of Vancouver, BC, and Ray Gardner, 
of Englewood, CO, because each de- 
vised a program that produced the 
same 124 candidates (all sans As). I 
also include Ray’s program (Listing 
Two, page 116), because he accom- 
plished in 24 lines of C code (seven 
lines of which, in good C coding prac- 
tice, consist merely of one brace) 
what took Ken a page and a half of 
Pascal. Ray claims his program, writ- 
ten in Lattice C, runs in under four 
seconds on his IBM PC. Ray also says 
that his wife found the word typey in 
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15 minutes, without the benefit of a 
computer. (So much for computers. ) 

I also mention Thomas Shores, of 
Lincoln, NB, because, while his C 
program does not specifically gener- 
ate words with As, he did acknowl- 
edge in his accompanying letter that 
they should be inserted ‘“‘appropriate- 
ly” within generated candidates. 
Also, his program generates all possi- 
ble candidates, not just those multi- 
plying out to 1,000,000. The best 
word he found was moors, value 
1,000,350, but he thought others 
might come up with better possibili- 
ties. He stated that if any better 
words were found, they would have 
one of these values: 999,702; 
999,810; 999,856; 1,000,000; 
1,000,188. Good figuring, particular- 
ly since the word J think is the best 
has a value of 1,000,188. (How come 
you missed rooms, Thomas, an ana- 
gram of moors, and comers, which is 
also value 1,000,350?) 

Trent Garverick, of Columbus, 
OH, gets an honorable mention for 
his short and sweet self-documenting 
pseudocode algorithm, the imple- 
mentation of which in UCSD Pascal 
on an Apple II yielded what I believe 
to be the word closest to 1,000,000 
found in the specified dictionary. 
Curing multiplies out to 1,000,188. 

My own program had come up 
with that very word. My program 
first generated candidates within plus 
or minus 1000 of 1,000,000. I then 
“‘eyeballed” the list for real words. 
When I found several within 350, I 
narrowed the variance. Each time I 
found a better word, I started again 
with the smaller offset. My program, 
however, was inefficient, it took for- 
ever to run, and it generated literally 
thousands of possibilities, mostly be- 
Cause it spit out all permutations of 
each “word,” not just words sorted in 
alphabetic descending order. 

Trent based his program on exami- 
nation of a real dictionary, rather 
than on generation of candidates. I 
still don’t think that is the best meth- 
od, but his program at least does not 
assume that a word multiplying out 
to exactly 1,000,000 must exist nor 
does it refuse to account for words 
with As in them. 

I also mention Tom Balon, of Apa- 


lachin, NY, and Bob Smith, of Wind- 
sor, NY, who jointly produced a Pas- 
cal program on a VAX 11-785 to 
examine a dictionary of 33,595 
words, coming up with curing. They 
also found, tied at 1,000,188, Nicara- 
gua, but that word is disqualified as 
being a proper noun. Their program, 
while relatively short, was not self- 
documenting. Joe Celko, of Los An- 
geles, also deserves mention for a 
short, relatively easy-to-follow C pro- 
gram that produces, in combination 
with a spelling checker, lots of possi- 
bilities, the best of which he con- 
cludes is curing. 

And now for the winner. The enve- 
lope, Randy, please. Ah, yes, Fred 
Smith, of Stoneham, MA, wrote a 
short C program into which you input 
a list of words; the program then de- 
termines the value of each word. The 
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goatees 
soybean 
stogy 
suety 
alkaline 
budlike 
chuckle 
clinked 
driven 
flanker 
invader 
lurked 
pucker 
variant 
viaduct 
village 
mopped 
palmated 
banquet 
curing 
nicaragua 
comers 
cozies 
moors 
rooms 
seamier 
arkansas 
sulks 
packets 
shakeable 
shelve 
shoved 
specked 
Stalked 


Figure 
Partial Listing of Words 
Produced by Fred Smith's Million.C 
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Announcing 
BOUND VOLUME 7 


Every 1982 Issue Available For Your Personal Reference. 


Vol. 7 1982 


In 1982 we introduced several significant pieces of software, including the RED text editor and the Runic extensible compiler, 
and we continued to publish utility programs and useful algorithms. Two new columns, The CP/M Exchange and The 16-Bit 
Software Toolbox, were launched, and we devoted special issues to FORTH and telecommunications. Resident Intern Dave 
Cortesi supplied a year of “Clinic” columns while delivering his famous review of srt Pascal and writing the first serious 
technical comparison of CP/M-86 and msbos. This was also the year we began looking forward to today’s generation of 
microprocessors and operating systems, publishing software for the Motorola 68000 and the Zilog Z8000 as well as Unix 
code. And in December, we looked beyond, in the provocative essay, “Fifth-generation Computers.” 


Vol. 1 1976 


The material brought together in this volume chronicles the development in 
1976 of Tiny BASIC as an alternative to the “finger blistering,” front-panel, 
machine-language programming which was then the only way to do things. 
This is always pertinent for bit crunching and byte saving, language design 
theory, home-brew computer construction and the technical history of 
personal computing. 

Topics include: Tiny BASIC, the (very) first word on CP/M, Speech Synthesis, 
Floating Point Routines, Timer Routines, Building an IMSAI, and more. 


Vol. 2 1977 


1977 found DDBJ still on the forefront. These issues offer refinements of Tiny 
BASIC, plus then state-of-the-art utilities, the advent of PILOT for microcompu- 
ters and a great deal of material centering around the Intel 8080, including a 
complete operating system. Products just becoming available for reviews 
were the H-8, KIM-1, MITS BASIC, Poly Basic, and NIBL. 

Articles are about Lawrence Livermore Lab’s BASIC, Alpha-Micro, String 
Handling, Cyphers, High Speed Interaction, I/O, Tiny Pilot & Turtle Graphics, 
many utilities, and even more. 


Vol. 3 1978 


The microcomputer industry entered its adolescence in 1978. This volume 
brings together the issues which began dealing with the 6502, with mass- 
market machines and languages to match. The authors began speaking more 
in terms of technique, rather than of specific implementations; because of this, 
they were able to continue laying the groundwork industry would follow. 
These articles relate very closely to what is generally available today. 
Languages covered in depth were SAM76, Pilot, Pascal, and Lisp,.in addition to 
RAM Testers, S-100 Bus Standard Proposal, Disassemblers, Editors, and much, 
much more. 





Vol. 4 1979 


This volume heralds a wider interest in telecommunications, in algorithms, 
and in faster, more powerful utilities and languages. Innovation is still present 
in every page, and more attention is paid to the best ways to use the proces- 
sors which have proven longevity—primarily the 8080/Z80, 6502, and 6800. 
The subject matter is invaluable both as a learning tool and as a frequent 
source of reference. 

Main subjects include: Programming Problems/Solutions, Pascal, Information 
Network Proposal, Floating Point Arithmetic, 8-bit to 16-bit Conversion, 
Pseudo-random Sequences, and Interfacing a Micro to a Mainframe—more 
than ever! 


Vol. 5 1980 


All the ground-breaking issues from 1980 in one volume! Systems software 
reached a new level with the advent of CP/M, chronicled herein by Gary 
Kildall and others (DDJ’s all-CP/M issue sold out within weeks of publication). 
Software portability became a topic of greater import, and DDJ published Ron 
Cain’s immediately famous Small-C compiler—reprinted here in full 
Contents include: The Evolution of CP/M, a CP/M-Flavored C Inerpreter, Ron 
Cain’s C Compiler for the 8080, Further with Tiny BASIC, a Syntax-Oriented 
Compiler Writing Language, CP/M to UCSD Pascal File Conversion, Run-time 
Library for the Small-C Compiler and, as always, even more! 


Vol. 6 1981 


1981 saw our first all-FORTH issue (now sold out), along with continuing cover- 
age of CP/M, small-C, telecommunications, and new languages. Dave Cortesi 
opened “Dr. Dobb’s Clinic” in 1981, beginning one of the magazine's most 
popular features. 

Highlights: information on PCNET, the Conference Tree, and The Electric Phone 
Book, writing your own compiler, a systems programming language, and Tiny 
BASIC for the 6809. 
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default is to print only those words 
whose values lie within 10,000 of 
1,000,000, but it has a command line 
switch (great for debugging) that 
prints all values. The program also 
ignores words of less than five letters. 
And here is the clever part, the spark 
of originality for which Fred really 
deserves the t-shirt: he then used the 
powerful capabilities of Unix to ex- 
amine an entire dictionary, one of 
over 90,000 words. 

He used two Unix tools, each per- 
forming one task well. (One was his 
own word value-determination pro- 
gram.) His program, million, reads 
all the words in a 90,000-word dictio- 
nary called words and pipes its output 
to the sort utility, which performs a 
numeric sort on the second field of 
each line and writes the final sorted 
file to an output file called m.w.sort- 
ed. Fred’s program is Listing Three 


(pagel 18). Here is the Unix command: 


million < words sort —n +1 
> m.w.sorted 


So why, if I’m not convinced that 
reading all the words of a dictio- 
nary—furthermore, one that does not 
contain all the possible words of the 
dictionary I specified—is the best 
method, do I award Fred the t-shirt? 
Two reasons. One, his program was 
the cleverest. Two, nobody did it the 
way I thought it should be done. 

I was hoping that someone would 
devise a program that generates all 
candidates equal to and close to 
1,000,000 and retains only those ob- 
viously or likely to be English words, 
coming up with a small list that a hu- 
man being then could scan for “‘real”’ 
words. What I wanted to show was 
the necessary cooperation between 


machines and humans on problems of 
this sort. 

Russ Nelson, of Potsdam, NY, 
also deserves mention because he was 
clever enough to figure out precisely 
at which sprawling Silicon Valley 
corporate octopus my curious collec- 
tion of I-Q Industries eccentrics ac- 
tually works, proving to me that his 
knowledge was no mere guess by rep- 
licating the convoluted programmat- 
ic word game with which I produced 
the name. I would have awarded him 
an honorary t-shirt if he had also fig- 
ured out what classical bit of enter- 
tainment inspired the transposition. 

Thanks for all the kind letters! 


DD] 


Reader Ballot 
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C ompu f er Calis thenics (Text begins on page 110) 


Listing One 
PROGRAM DAVIS(INPUT,OUTPUT); 


CONST LARGE=50; 


VAR M,N: INTEGER: 


WHICH MEANS 
PARTITION, 


VAR S,T,C 
TEMP: BOOL 


N HAS MORE THAN ONE ACCEPTABLE 
WHICH MERELY MEANS N>6, #) 


OUNT: INTEGER; 
EAN; 


(#AT EACH STAGE BELOW, N REFERS TO THE 
NUMBER THAT MATHEMATICIAN WAS TOLD. *) 


FUNCTION STAGEA(N: INTEGER): BOOLEAN; 


(#AT STAGE A, MR. P DOESN'T KNOW, 
THAT MEANS N HAS MORE THAN ONE 
ACCEPTABLE FACTORIZATION. *) 


VAR COUNT,F,G: INTEGER; 


BEGIN 
Fr=23; Gr=N DIV 2; COUNT:=0; 
WHILE F<G DO 
BEGIN 
IF N MOD F = 0 THEN 
COUNT: =COUNT#+1; 
Fr=F+is: G:=N DIV F 
END; 
STAGEA: =(COUNT>1) 
END; 


FUNCTION STAGEB(N: INTEGER): BOOLEAN; 


(#AT STAGE B, MR. S KNOWS MR P. DOESN'T 
KNOW. THAT MEANS EACH ACCEPTABLE PARTITION 
S+T=N YIELDS A NUMBER S#T WHICH SATISFIES 
STAGE A. HE ALSO DOES NOT KNOW HIMSELF, 
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BEGIN 
S:=23 T:=N-S; COUNT: =03; TEMP:=(N>6)?: 
WHILE S<T DO 
BEGIN 
COUNT: =COUNT+1; 
TEMP:=TEMP AND STAGEA(S#T); 
S:=S+1; T:=N-§ 
END; 
STAGEB:=(COUNT>1) AND TEMP 
END; 


FUNCTION STAGEC(N: INTEGER) : BOOLEAN; 
VAR F,G,COUNT: INTEGER; 


(#AT STAGE C, P KNOWS. THIS MEANS THERE 
IS EXACTLY ONE ACCEPTABLE FACTORIZATION 
OF M#N FOR WHICH STAGE B IS CORRECT#) 


BEGIN 
F:=2; G:=N DIV Fs; COUNT: =0; 
WHILE F<G DO 
BEGIN 
IF (N MOD F = 0) AND STAGEB(F+G) 
THEN COUNT:=COUNT+1; 
Fr=F+l; G:=N DIV F 
END; 
STAGEC: =(COUNT=1) 
END; 
(Continued on page 116) 
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OWINGS MILLS 
A Challenging Opportunity in our 
Florida Corporate Offices 






OHIO SCIENTIFIC/ISOTRON AND COM- 
PATIBLE COMPUTERS! Users MUST 
read PEEK (65). Published monthly exclu- 
sively for above users. $19/yr U.S. $26/yr 
Canada; P.O. Box 347, Owings Mills, MD 
21117; (301) 363-3268. 













RS&H offers a challenging position with re- 
sponsibility for development of systems level 
and applications level software for various 
Industrial Process Control applications. 







Responsibilities will include involvement in 
associated hardware, and control strategy 
design, but a strong systems software back- 
ground is the primary requirement. 










Candidates should have at least three years’ 
experience and a strong working knowledge 
of at least one computer operating system, 
assembly language, and “C”’. Familiarity with 
various DEC equipment operating systems, 
“C" and MACRO is particularly desirable. 
Experience with: development of real-time 
software with some Process Control/Instru- 
mentation background is desired. A BS de- 
gree in Computer Science or Engineering is 
a minimum requirement. 


RS&H is a multi-disciplined A/E/P firm witha 
43 year reputation for innovative technology 
applications and professional development. 
RS&H offers an attractive salary and benefits 
package including a prime Florida location 
providing a quality of life second to none. 

Please send your resume in complete con- 






SOFTWARE SENTINEL 
A hardware key that prohibits unauthor- 
ized use. Its benefits: Unlimited backup 
copies; unbreakable; site licensing con- 
trol; no floppy required with hard disk; 
transportable; transparent; pocketsize. 
Evaluation Kit available. PC compatible. 
Rainbow Technologies, Inc. 
17971 Skypark Circle, Suite E 
Irvine, CA 92714 (714) 261-0228 





ECLIPSE SYSTEMS 












AZTEC C65 + ProDOS 

Use Aztec C DOS 3.3 software under Pro- 
DOS. Run programs without relinking. Sys- 
tem includes recursive Shell, support for 
pseudo-code, vi like editor with macros, li- 
brary upgrade and source code. Requires 
ProDOS user's disk. $49.95. 

Eclipse Systems, 223 Matthew Rd., Marion, 
PA 19066. (215) 667-8354 




























Tins: ome Mee Aes meee 
omas M. Hills f 

: DIAL & ORDER REYNOLDS, SMITH 

MICRO COMPUTING SERVICES 24 HR. MODEM LINE AND HILLS 



























Architects-Engineers- 
a Planners, Incorporated 


/ Ren \ P.O. Box 4850 
Jacksonville, FL 32201 







CBTREE FOR C PROGRAMMERS 
Provides enhanced file handling calls di- 
rectly into C-programs. Maintains balanced 
B-trees, supports unlimited number of keys 
and key lengths. Fast, Flexible, Efficient. No 
royalties. Source Code Incl. $179. MICRO 
COMPUTING SERVICES 2009 Hileman 
Road Falls Church, VA 22043 (703) 893- 
0118 


(408) 425-1371 


Specializing in 
technical/reference books 
and computer supplies. 











RS&H encourages qualified minorities, 
women, veterans and handicapped 
individuals to apply 








Wise Dog Computerbooks 
43410 Fair Ave, Santa Cruz,CA95060 
Toll Free N. Cal. (800) 558-9473 







EOE/AAP 





Dr. Dobb’s Journal 


is pleased to announce the 
DDJ Classifieds 


RATES: DISPLAY ADVERTISERS: Price per column inch $100. Ad must run in 3 
consecutive issues. ’ 
LINE ADVERTISERS: Price per line $12 (35 characters per line including 
spaces). Minimum of 5 lines. 3 consecutive issues. Add $3 per line for 
boldface type. Add $25 if a background screen is desired. 

DISCOUNTS: Frequency discounts for 6 consecutive ads (less 7%) and for 12 
consecutive ads (less 15%). 

MECHANICAL REQUIREMENTS: Camera ready art or typewritten copy only 
(phone orders excepted). Display: Specify desired size, include $20 if 
reduction is required. Line: Specify characters in boldface, caps. Allow 6 
weeks for publication. 

PAYMENTS: Full payment in advance. Check, money order, Visa, M/C, AmEx. 


Run this ad in 


Size: 


issues 











col x inches or 1 col x 
Payment by: ___-___ check m/o Visa WAG ee AEX 
ee ft DB A eins ee oa eee ee CE eee 


Signature 










Print Name 





Company — 
Address 
CR ne peered ener ene 
Current Subscriber 


Mail to or phone Tim Ortiz, DDJ Classifieds, 2464 Embarcadero 
Way, Palo Alto, CA 94303 (415) 424-0600 








Phone 





115 


Compu f er C. alis th eni CS (Listing Continued, text begins on page 110) 


Listing One 


FUNCTION STAGED(N: INTEGER): BOOLEAN; 
VAR S,7,COUNT: INTEGER; 


(#AT STAGE D, S KNOWS TOO. THIS MEANS 
THAT THERE IS EXACTLY ONE ACCEPTABLE 
PARTITION S+T OF N FOR WHICH STAGE 
C IS CORRECT FOR S#T.#) 


BEGIN 
S:=23 Tr=N-S3 COUNT: =03 
WHILE S<T DO 
BEGIN 
IF STAGEC(S#T) THEN COUNT: =COUNT+1; 
S:=$+13 TseN-§ 
END; 
STAGED: =(COUNT=1) 
END; 


Listing Two 


/* solve —-- 
*/ 
char letter [3 = "bdehipty"; 


char selutionleol: 


BEGIN (#MAIN#) 


FOR M:=3 TO LARGE DO 
BEGIN 

WRITE(M:3)3 

IF (M MOD 12 = 0) THEN WRITELN; 

FOR Ni= 2 TO M-1 DO 

IF STAGEA(M#N) THEN 
IF STAGEB(M+N) THEN 
IF STAGEC(M#N) THEN 
IF STAGED(M+N) THEN 


BEGIN 
WRITELN; 
WRITELN( THIS PAIR WORKS: ‘,N:3,M:3)3 
END; 
END; 
END. 


End Listing One 


Computer Calisthenics saluticrn 


/* found a solution, write it +*/ 


/*® partial solution, extend it */ 


Lee pe 


8s we 


End Listing Two 
(Continued on page 118) 


mai () 
{ 
salve(O,0, LQOOQ0OL) ; 
+ 
solve (length, nextletter, ooal) 
int lenoth., nextletter;: 
lorig goals; 
{ 
int 1, value; 
if ( goal == 1) ¢ 
solutionlClenmgth)] = 7\O'; 
puts (soluticn) : 
+ else ¢ 
for (€( 1 = nextletter: letterlil: 
value = letter(id - ’a’ + 13 
if ( gaal * value == Oo) ¢ 
solutiaonClength] = letterfil 
solve (length+1, i, qoal/value) 
} 
z= 
- 
+ 
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FULL SCREEN SYMBOLIC DEBUGGER 


“THE SINGLE BEST DEBUGGER 
FOR CP/M-SO. A TRULY 
AMAZING PRODUCT.” 


LEOR ZOLMAN 
AUTHOR OF BDS C 


Complete upward compatibility with DDT 

Simultaneous instruction, register, stack & memory displays 
Software In-Circuit-Emulator provides write protected memory, 
execute only code and stack protection. 

Full Z80 support with Intel or Zilog Mnemonics 

Thirty day money back guarantee 

On-line help & 50 page user manual 


the PE 
_SOFTADVANCES — 


P.O. BOX 49473 AUSTIN, TEXAS 78765 (512) 478-4763 





Circle no. 63 on reader service card. 


A FULL C 
COMPILER 4995 
FOR 


The Ecosoft Eco-C88 compiler for the 8088 and MSDOS is going to set a new 
standard for price and performance. Consider the evidence: 

















(1) Computer Language, Feb., 1985, pp.73-102. Reprinted by permission. 
The Eco-C88 compiler is a full K&R C compiler that supports all data types and 
operators (except bit fields). Now look at the other features we offer: 

* 8087 co-processor support using a single library. If you install an 8087 
later, the software will use it without having to recompile. 

* A robust standard library with over 150 functions, including trans- 
cendentals, color, and others. 

* OBJ output for linking with the MSDOS linker (LINK). 

* Error messages in English — no cryptic numbers to look up. A real plus 
especially if you're just getting started with C. 

* Easy-to-read and complete user’s manual. 

* Works with all IBM and compatibles running MSDOS 2.0 (or later). 


* Plus many other features. 


For $10.00 more, we will include the source code for the C library functions 
(excluding transcendentals). For an additional $15.00, we will include our 
ISAM file handler in OBJ format (as published in the C Programmer's 
library, Que Publishing). The discount prices for the library source and ISAM 
only apply at the time the compiler is purchased. Please add $4.00 to cover 
postage and handling. To order, call or write: 








Ecosoft Inc. 


6413 N. College Avenue AE RICAN) 
Indianapolis, IN 46220 Ss Cer 
ECOSOFTMSING. (317) 255-6476 z; 

Eco-C (Ecosoft), MSDOS (Microsoft), UNIX (Bell Labs), CP/M (Digitol Research), Z80 (Zilog), 8086, 8087, 8088 (intel). 








Circle no. 35 on reader service card. 

























DOES 


EVERYTHING 


YOU WANT 


IT TO DO 


D&W DIGITAL, INC. 
20655 Hathaway Avenue 
Hayward, California 94541 
(415) 887-5711 





Circle no. 28 on reader service card. 
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C ompu f er Calis th eni Cs (Listing Continued, text begins on page 110) 
Listing Three 


OONMNUMFSWNH 


Om a a nn i rs cs crs rs ee ee te es ee ee ee ree ee ees eee oe EE SY LE ST GE GE GREED aE GoD eee eS coe 


_— me ee ee es ee 


eee re ee ee ee 


—— we ee ee oe oe 


ee ee ee ee ee ee es es oe 


0 fF 0 8 6:6. 0-0-4 


Usage: million [-nl] < infile > outfile 


1/0 is from stdio. By default, only words with products >= 998888 and 
<= 1018888 are cutput. If -n! switch is used (‘no limits’), the 


*/ 


limit test is suppressed, and al! wor 


printed. 


Hinclude <stdio.h> 
#include <ctype.h> 


#define 
#define 
#define 
Hdefine 
Hdefine 
Hdefine 
#Hdefine 


mainfargce, argv) 


GPT 18882899 

MIN OPT - 18882 

MAX OPT + 18882 

BOOL unsigned short 

MAXLINE 8@ /*x iongest 
TRUE 1 

FALSE @ 

int argc; . 


char xargv[]; 
{ 


char word (MAXLINE]); 
register char xpu; 


register int wordlen; /* 
register unsigned long prod; /* 
register BOOL print = TRUE; /*x 
register BOOL limit = TRUE; /* 


if (farge > 1) 8&8 !stremplargv[i), 
{ /* 
limit = FALSE; 
} 


white (€ gets(nord)) 
Bk 


if (({wordlen = strien(word)) < 
continue; 


ds >= S letters in length are 


/* optimum value «/ 
/*x minimum acceptable */ 
/x maximum acceptable */ 
permissible input string x/ 


input word to be examined 
register pointer thereto 

length of string stored in word 
working word value 

ok to print word if TRUE 

essume MIN-MAX range limits 


wani™}) 
suppress iimit teat for printing 


/*x until end of input, get next 


5) 


& /* filter short words «/ 


for (print = TRUE, prod = 1, pw = word ; xpw ; pii++) 
{ 


/x 


examine for non-alpha characters, 


calculate product 


if €( ! isalpha(xpw)) 
{ 

print = FALSE; 

break; 


prod *= (tolower (xpu) - ’a’ + 1); 
} 


if (prod < MIN) {| 
{ 
print = FALSE; 
} 
if (print) 
i 


printf ("%s",word); 

for ( ; 
putchar(’ ’); 
} 


printf ("Zu\n",prod); 
} 


(prod > MAX)) && limit) 


/x check limit conditions 


/* is it ok to print? x/ 


wordlen < 15 3; wordlien++) 


‘x print werd = x«*/ 
/% pad with blanks «/ 
/*x print word value u/ 


«/ 
x/ 
x/ 
x/ 
«/ 
x/ 


*/ 


word «*/ 


*/ 


*/ 


End Listings 
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soos FMT si0s 


Text Formatting System 






FMT provides most of the features of 
the high-priced Text Formatters at our 
inexpensive price -- and it’s easier to 
use, too! Note the features below: 






Easily configured to your printer. Con- 
figuration files for 20+ printer models 
are provided or generate your own. 


FMT gets the most from your printers 
by taking advantage of their special 
features, including condensed, double 
width, enhanced, double print, italics, 
elite, letter quality, multiple fonts, etc. 








Multiple modes and combinations of 
modes can be used on the same line 
or even in the same word. 














FMT works with your favorite editor! 






FMT uses meaningful mneumonic 
commands in the style of SCRIPT or 
ROFF (each command appears on its 
own input line), including commands 
for the various printing modes. 








No embedded control codes - you 
don’t have to remember those strange 
escape/control sequences. 


FMT runs at the maximum speed your 
printer allows for each printing mode 
- graphics mode is not required. 














Standard formatting features provided, 
including headers and footers, 
automatic page numbering, text 
justification, tabs for table generation, 
and embedded files up to TEN deep. 


FMT automatically builds Table of Con- 
tents, List of Figures, and three level 
alphabetized Index. 







Detailed 100 + page manual profuse- 
ly illustrated with examples. ~ 

















Works equally well with IBM-PC, TI-PC, 
IBM clones and look-alikes (PC- 
DOS/MS-DOS 128k). Also works with 
CP/M 8080 and Z80 systems with 64k. 


$49.95 plus $2.00 shipping and 
handling. 


Specify system. 
VISA and Master Card Accepted 


Dealer Inquiries Welcome 


TINY TEK, INC. 


Route 1, Box 795 
Quinlan, Texas 75474 
(214) 447-3025 


Circle no. 39 on reader service card. 





Periscope ... A Direct Hit! 


“‘A great debugger ... If you’ve been frustrated by 
programs that don’t behave the same for the debugger 
as when running alone, or that crash altogether, you 
should check out Periscope ...”’ 


PC REPORT, Boston Computer Society 








‘It works, and works well!! In the first day of use I ed 
finished up two weeks of problems!! Really ex- Z 
cellent!!!?? 


Peter Loats, Periscope User 


Periscope’s differences hit home! Its 
breakout switch gives you control, even when in- 
terrupts are disabled. Periscope’s unique power 
helps you solve the difficult problems. Debug device- 
drivers, memory-resident, and non-DOS programs. 


Great for straightening out confused C 

pointers! Using its breakpoint power, you can stop 
on reads and writes to ranges of memory. Stop on ( 
registers, words, and bytes, too. | 


It’s tough. Periscope’s 16K RAM board is write-protected. Runaway 
programs can’t touch crucial debugger code! Examine the system, safely, at 
any time: Periscope saves the interrupt vectors and buffers it uses, then 
restores them when done. It uses ROM BIOS calls for functions except file 
access, so DOS can’t clobber itself. 


It gets you moving. It’s commands are similar to Debug’s, so you'll 
master it quickly. On-line help is there when you need it. You can define the 
windows you want; you can design easy-to-read memory displays. Periscope 
supports C, Assembler, BASIC, and Pascal. Comprehensive symbol sup- 
port gives you a roadmap through memory tying back to your source. 


It’s risk-free. Periscope is backed up by a 30-day, money-back guarantee! 
The board is warranted for a year. Technical Support? You get the best 
there is ... direct from Brett Salter, Periscope’s author! 


It requires. An IBM PC, XT, AT, Compag, or close compatible; PC- 
DOS, 64K RAM; a disk drive and an 80-column monitor. With two 
monitors, Periscope’s screen is displayed on the monitor not in use. With 
one monitor, a keystroke switches screens. 


It’s power you can afford. At $295, you can afford Periscope’s 
professional power. The system includes the memory board, breakout 
switch, debugger software, manual, and quick reference card. 


Order now! Call toll-free (800) 722-7006 to place your order or to get 
more information. MasterCard/VISA accepted. 


Get your programs up and running; 


uP PERIS E! 


Data Base Decisions/14 Bonnie Lane! Atlanta, GA 30328/(404) 256-3860 


Circle no. 31.on reader service card. 





by Michael Swaine 


The marketing of microcomputer 
technology is not an exact science. Lee 
Felsenstein, designer of the Osborne 1 
and a founder of the Community 
Memory Project that wrote the Sequi- 
tur relational database management 
system, is now selling Sequitur 
through his company, Golemics, at a 
third of its original price. Sequitur 
was generally regarded as hot stuff 
when introduced some three years 
ago, but CM’s faulty marketing kept 
it off the dealers’ shelves, an article of 
furniture to which Sequitur will re- 
main a stranger, since Sequitur will 
now be sold strictly by mail order at 
$250. “I kept my mouth shut [earlier] 
because I thought I didn’t know 
enough to criticize. My Osborne expe- 
rience made me realize that nobody 
else knows any better either,’ Lee 
says. He’s wiser now; he turned forty 
this spring .. . Micro Craft, manufac- 
turer of the Dimension computer, a 
pricey multiprocessor machine curi- 
ously positioned on release as a do-all 
end-user product, has also recently 
risen from the rubble of bad market- 
ing. The company is now selling dual- 
68000 Unix machines and enjoying 
post-Chapter 11 prosperity ... New 
Functions, the distributor of Judy, a 
concurrent personal assistant (aka 
gal/man Friday, sidekick, right-hand 
man, desktop accessory or pop-up), 
has one of the more novel distribution 
schemes extant. Judy owners can gen- 
erate and give away Judy “clones” — 
limited-time free samples—and when 
the sampler buys his own Judy, the 
clonemaker gets a commission. New 
Functions recently raised that com- 
mission from 10% to 20%. 

The largest computer show in the 
world is not held in the U.S. Atari 
introduced its 68000-based ST com- 
puter at the mammoth Hannover 
Fair in Germany in April. Despite 
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the fact that the ST had a tendency to 
crash when asked to do anything 
much beyond the prepared demo, our 
correspondent on the scene found 
both the machine and its reception 
impressive, and advised us to look 
into software development for the ST 
under the GEM environment... Jack 
Tramiel’s former company, Commo- 
dore, which has long stood strong in 
Europe, lost money this spring for the 


first time ever as dealers held out for 


the new 128 machine ... A new Eu- 
ropean Forth chip could provide some 
competition for the Novix NC4000 
Forth chip, although the Novix chip 
should actually be available by the 
time you read this. The NC4000 was 
designed by Charles Moore, who cre- 
ated Forth, and Robert Murphy; it 
can address four megabytes of mem- 
ory and is intended to execute Forth 
code on the order of ten times the 
speed of any software implementa- 
tion of Forth. Its designers expect it 
to find application in speed-critical 
areas like animation. 


Boards 

RAM price wars are behind price re- 
ductions on some hardware enhance- 
ments. The price of a do-it-yourself 
Macintosh upgrade is now below 
$200 ... DFE has cut prices on its 
NS32032 coprocessor board for IBM 
PC/XT/AT and PC-compatible com- 
puters. The basic Tiger-32 was intro- 
duced last summer with a 6MHz 
clock, 32082 MMU, 512K onboard 
RAM and Xenix 3.0 for $2495, but 
RAM price-cutting has brought it 
down to $2095 ... Univation’s Tur- 
bocharger is a 9.54 MHz 8086 board 
for the IBM PC that sells for $1295 
with 640K on-board RAM ... Real 
Time Devices is selling a GPIB instru- 
mentation bus interface board for 





PCs for $299, a per-channel cost of 
about $20. 

Some new boards refine existing 
capabilities: Interstate Voice Prod- 
ucts announced a speaker-dependent 
IBM PC board that has some limited 
facility for recognizing words in con- 
nected speech ... We’re examining 
STB’s video board, which runs all 
IBM-compatible software, whether it 
was designed for a color or a mono- 
chrome monitor, by converting 
graphics displays into full-screen 16- 
level grey-scale images ... ANEX 
Technology is selling a banked 2-me- 
gabyte RAM board for PCs that are 
running multi-user software. 

For $61 (quantity one price), you 
can pick up a VLSI chip that lets you 
directly replace an 8088 micropro- 
cessor with an 80286. Edsun Labs’ 
EL286-88 Processor Converter 
stands between the 286 and the pe- 
ripherals, playing an 8088 to the pe- 
ripherals, while accepting and con- 
verting all 16-bit transfer requests 
from the 286. The idea is to combine 
16-bit main memory operations with 
low-cost 8-bit peripherals. 


MSDOS 

Alternatives or extensions to 
MSDOS/PCDOS are popping up like 
pop-ups. DRI has announced the first 
software to run under its Graphics 
Environment Manager (GEM): GEM 
Desktop, Draw, Write, Paint, Word- 
chart and Graph. Desktop lets you 
run up to six utility programs on top 
of applications, like the Mac’s desk- 
top accessories; all are supposed to be 
shipping as you read this ... Digi- 
trol’s peShare substitutes a multi- 
user system with file protection for 
PCDOS ... RTCS’s PC/RTX substi- 
tutes a real-time O/S (an implemen- 
tation of Intel’s iRMX-86) ... Soft- 
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Logic’s DoubleDOS makes PCDOS 
multitask for $99 (‘‘multi’’ here 
means “‘two’’). 

For software development under 
MSDOS/PCDOS, Phoenix software 
has a program development manager 
called Pmaker that they say is similar 
to the Unix ““make” command, and a 
program performance analyzer caller 
Pfinish ... Advance Trace86 from 
Morgan Computing is a debugger/ 
assembler that lets you back up exe- 
cution 20 instructions ... Genesis’s 
GeneScope is a new full-screen sym- 
bolic debugger for the PC. 

Whether developing expert systems 
on a micro is the Next Big Thing or 
just the latest fad, it’s getting cheaper 
and easier. Insight 2 from Level Five 
Research lets you incorporate Pascal 
routines and dBase II files into a 
knowledge base developed on a PC or 
compatible ... AI pioneer Donald 
Michie’s Expert Ease package has un- 
dergone some changes of ownership 
and distribution (it’s now distributed 
by Human Edge), the most visible 
consequence of which is a price cut 
from $2000 to $695. 


Cc 


“To boldly go where no C software 
distributor has gone before ....” 
Phoenix calls Pre-C, its lint superset, 
the industry’s first program analyzer 
for the C language designed to sup- 
port MSDOS and PCDOS ... Micro 
Software Developers says its C De- 
bugger is the first true source debug- 
ger for C... Catalytics has released 
what it calls the first complete C in- 
terpreter, its Safe C... For Lattice C 
programmers who don’t necessarily 
hanker to be first, or at least would 
like some company out there on the 
giddy edge, Bill Hunt, author of The 
C Toolbox, has started the Lattice C 
User’s Group. 

Whitesmiths has upgraded its 
8086-family C compiler to support all 
8086 memory models and for closer 
adherence to their best guess at the 
emerging ANSI standard ... Tool- 
works has moved its C/80 compiler to 
MSDOS and is selling it for $49.95 .. 
Smith & Smith Associates has re- 
leased CrossRefC, a C cross-refer- 
ence/listing generator, for $39.95... 
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Vance Info Systems announced C Lib, 
a C function library of over 200 rou- 
tines, for the MSDOS environment. 


CP/M 
CP/M users needn’t feel left out of the 
pop-up fad: Poor Person Software’s 
Write-Hand-Man (that’s something 
like a sidekick, we suppose) includes a 
notebook, phonepad, desk calendar, 
file and directory viewing programs 
and a communications program; new 
functions can be added fairly easily. It 
sells for $49.95 and runs under CP/M 
2.2 on all CP/M machines. 

Also for CP/M, MB+ Tools is 
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C86 for all PC-MSDOS computers. $395.00. Visa, 
Mastercard, personal check and corporate PO’s 
accepted. 
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Minnow Bear Software’s $175 set of 
programmer productivity tools for 
Pascal MT+ ... Soft Advances says 
that its DSD80 full-screen symbolic 
debugger is fully DDT-compatible 
and fully supports Z80 instructions 
using either extended Intel or Zilog 
mnemonics ... Selfware’s Convert 
3.1 lets you read, write and format 
disks, copy files and list directories in 
105 CP/M formats on an MSDOS 
machine, and costs $99. 


Mac 


Just now, despite such attractions as 
the novelty of a Smalltalklike Forth 













INNOVATIONS, INC. 


980 Shrewsbury Avenue, 
Tinton Falls, NJ 07724 (201) 542-5920 









Circle no. 96 on reader service card. 
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#73 Volume VII, Issue 11: 

Wildcard UNIX Filenames—Tests for Pidgin—68000 Cross Assembler Listing, 
Part 2—Adding More BDOS Calls—The Perfect Hash—BASIC Memory Man- 
agement—Benchmarks for CP/M-86 vs. MSDOS, and the 8087. 


#78 Volume VIII, Issue 4: 
RECLAIM Destroyed Directories—Binary Magic Numbers—8080 Fig-Forth DI- 
rectory & File System—SAY”’ Forth Votrax Driver—TRS-80 8080 to Z80 Trans- 
lator— Basic Disk I/O, Part Il. 


#79 Volume VIII, Issue 5: 

The Augusta Compiler—A Fast Circle Routine—Enhancing the C Screen Edi- 
tor—Shifts and Rotations on the Z8O—The SCB, TSX, and TXS Instructions of 
the 6502 and 6800—MS-DOS vs. CP/M-86—Controlling MBASIC—The Buff- 
ered Keyboard—IBM PC Character Set Linker—Flip Utility for the IBM PC. 


#80 Volume VIII, Issue 6: 

Fast Divisibility Algorithms—B-Tree ISAM Concepts—CP/M BDOS and BIOS 
Calls for C—Serial Expansion in Forth—Fast Matrix Operations in Forth, Part 
I—Yes, You Can Trace Through BDOS—Julian Dates for Microcomputers— 
8088 Addressing Modes—8088 Line Generator—CP/M Plus. 


#81 Volume VIII, Issue 7: 

The Augusta Compiler, continued—RED: A Better Screen Editor, Part |—Anat- 
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extension (Kriya’s Neon), some of 
the most interesting products for the 
Mac are to be found on user group 
disks. Not surprisingly, a high pro- 
portion of these public-domain or 
user-supported programs consists of 
communications software, like Den- 
nis Brothers’ MacTEP and Scott 
Watson’s Red Ryder. You can pick 
more fruit if you have a ladder ... 
There are also a lot of fonts, desk ac- 
cessories and graphics; the IM Un- 
derground’s graphics consist of sche- 
matics for the machine ... Equally 
unsurprising, given the features of 
the Mac, is the number of attractive- 
ly-designed Mac newsletters, includ- 
ing MacTutor, The Mac Street Jour- 
nal and MacBriefs. 


Apple ][ 

Contrary to the impression given at its 
stockholders’ meeting early this year, 
Apple makes another computer, the 
Apple bracket-bracket. Programmers 
are even continuing to write software 
for the bracket-bracket ... Micro- 
Sparc has released the ProDOS ver- 
sion of its Ampersoft utility package 
at $49.95 for Applesoft programmers 
... There is, of course, much existing 
Apple ][ software: InCider is selling 
disks of software from the magazine 
at $21.47 ... Pandora Software has 
collected a library of 4000+ public- 
domain programs for the Apple ]| and 
is selling them at $5 per disk (at twen- 
ty programs per disk, that’s $1000 for 
the library, but still). 


A Visit to the Fab Lab 
A blip of deja vu struck as I read in 
the March JEEE Software about 
Ivan Guzman de Rojas and his plan 
for doing natural-language transla- 
tion via the peculiarly algebraic An- 
dean Indian language Aymara. Yes, 
trivial recall was working perfectly: 
halfway down the Andean peak of 
press releases on my desk I found the 
announcement of the opening of the 
Aymara Fab Lab in Sunnyvale. A co- 
incidence worthy of a drive down the 
peninsula. 

Dean Norman, Director of the Ay- 
mara Fab Lab, greeted me at the 
door and began talking immediately 


Dr. Dobb’s Journal, July 1985 


about Guzman. Norman explained 
that Guzman, discovering that Ay- 
mara, lacking irregular verbs and 
gender, was an unprecedentedly logi- 
cal language (although its logic was 
not standard two-valued logic), had 
succeeded in codifying the algorith- 
mic structure of its syntax. For the 
first time, someone had expressed a 
natural language in software. Wasn’t 
Guzman, I asked, considering the ap- 
plication of his achievement in the 
design of translating machines, the 
notion being that computerized Ay- 
mara could serve as the bridge in a 
multilanguage translation system? 
Right, Norman answered, although 
at AFL they were taking the process in 
a somewhat different direction. Did I 
recall the Sapir-Whorf hypothesis 
from linguistics? I did, more or less: 
that language delimited the thinkable 
thoughts, and thus our culture and 
perceptions. Under normal conditions, 
we see only those distinctions for 
which we have words. In cultures in 
which green is not a major linguistic 
division of the spectrum, it is also not 
a primary perceptual division. 
Norman nodded. The principle can 
be applied to any language-proces- 
sing system, natural or artificial. Cu- 
rious as it might sound, the Aymara- 
speaking software would, to a certain 
extent, think like an Aymaran. With 
its multi-valued logic, it would make 
distinctions that would never occur to 
a New York stockbroker; with its 
lack of grammatical gender, it would 
fail to make distinctions the stockbro- 
ker would unconsciously make. And 
Aymaran is only the easiest lan- 
guage, not the only one, to which the 
principle can be applied. Employing 
Guzman’s translation techniques, it 
would be possible to develop front- 
end packages that, with the proper 
filtering out of Aymaran values and 
perceptions, would embody pure up- 
per-class British perceptions or an- 
cient Greek thought processes. We 
could examine the way judges in an- 
cient Sumeria examined evidence. 
That, Norman explained, was what 
they were up to at AFL: just as the 
developers of expert systems were try- 
ing to capture the knowledge of select- 
ed individuals in software, AFL was 
trying to capture the style of thinking, 
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the intellectual spirit of whole cul- 
tures. [ mulled that over. Wouldn’t 
there be a great advantage, I asked, in 
combining the two approaches, devel- 
oping a system with a specifiable 
knowledge base and a specifiable style 
of thinking? Couldn’t one develop, 
say, a machine with the knowledge of 
a high-energy physicist and the spirit 
of a 12th-century Mandarin? Or the 
knowledge of a modern statesman and 
the intellectual style of the first Conti- 
nental Congress? But Norman sud- 
denly looked uncomfortable and said 
that he couldn’t discuss details of on- 
going projects. 
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“A compiler that has many strengths ... extensions seem to be quite valuable for serious work” 
(Aztec C86 2.2 review in Computer Languages 2/85) 
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Better Code ... 

Manx Aztec C86-c produces code that executes up to 
60 percent faster in up to 60 percent less space than code 
produced by other PC-DOS and MS-DOS compilers. In 
short, it generates the best code available. 

An extract from the C benchmark comparison in the 
January, 1985 issue of Computer Languages is repro- 
duced here. Aztec C86-c clearly generated the best code. 
Modifying the sieve benchmark to use register variables 
presents an even clearer picture. Aztec C86-c executes in 
6.51 seconds, Mark Williams executes in 7.56 seconds, 
and there is no improvement for Lattice and Computer 
Innovations Optimized C86. The Dhrystone benchmark 
results presented here are from a benchmark study con- 
ducted by MANX. The Dhrystone benchmark was pub- 
lished in the CACM (10/84 27:10 p1013) and converted by 
MANX from ADA to C. The Dhrystone benchmark was 
designed to produce a figure of merit for performance for 
systems software. For a full copy of the Manx Dhrystone 
and Whetstone benchmarks including timings for large 
memory models call Manx. 


Execution Code 
Time Size 


Compile/ 
Link Time 


Sieve Benchmark 
Manx Aztec C86 2.2 11 secs 4,448 64 secs 
Lattice 2.13 11 secs 21,902 98 secs 
Mark Williams 2.0 12 secs 6,887 79 secs 
Optimized C862.20G 13 secs 12,729 11] secs 


Matrix Benchmark 
Manx Aztec C862.2 16 secs 92 secs 
Lattice 2.13 29 secs 163 secs 
Mark Williams 2.0 29 secs 107 secs 
Optimized C86 2.20G 27 secs 134 secs 


Dhrystone Benchmark 
Manx Aztec C86 2.2 36 secs 5,680 93 secs 
Lattice 2.14 89secs 20,404 117 secs 
Mark Williams 2.0 56 secs 12,980 113 secs 
Optimized C86 2.20)  53secs 11,009 172 secs 


... with Less Effort 

At Manx, we understand the value of development 
tools, specialized features, professional documentation 
and technical support in making it easier for you to pro- 
duce quality software. That’s why we bundle more than 
$1000 worth of special features and tools with Manx 
Aztec C86-c, provide documentation that wins consis- 
tent praise for its clarity and completeness, and provide 
telephone access to experienced technical support for all 
Manx Aztec C products. 

The following are some of the more important compo- 
nents of the Manx Aztec C86 Software Development 
System. Notice that many of the features that are 
bundled with Manx Aztec C86-c such as the debugger, Z 
editor, macro assembler, library source code, and ROM 
support are extra cost items with other systems. 


Optimized C compiler Symbolic Debugger 

AS86 Macro Assembler C Utility Library 

LN86 Overlay Linker DOS Function Library 

Z (Vi) Source Editor-c 8087/80287 Sensing Lib 
ROM Support Package-c 80186/80286 Support 
Graphics Library INTEL HEX Utility-c 
CP/M-86 Library-c Librarian 

Screen Library Graphics Library 

Extensive UNIX Library Object File Utilities 

Library Source Code-c Mixed memory models-c 
Microsoft/Intel Object Option _Lattic, Microsoft, and CI-C86 Interface 
Small and Large memory models Unitools (MAKE, DIFF and GREP)-c 





Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c above are 
provided as special features of the Aztec C86-c system. 
Other items are provided with both. 

Third party software can often greatly improve soft- 
ware quality or significantly reduce software develop- 
ment time. Manx works with third party software de- 
velopers to assure the availability of a wide variety of high 
quality third party software For Aztec C. Third party soft- 
ware is available directly from Manx. Some of the better 
known software products available for Aztec C86 are: 
HALO C WINDOWS Amber Windows 
PHACT Sunscreen PLINK86 
C-TREE PANEL FirstTime 
PRE-C Greentree C Util Lib 
Call Manx to order or for information on third party soft- 
ware. 


... and Portable, Too! 

Manx Aztec C is the most portable C development sys- 
tem available. Manx Aztec C is the only C development 
system available for all of the following: MS-DOS, PC- 
DOS, CP/M-86, Macintosh, CPM-80, Apple II, Radio 
Shack and Commodore. Manx Aztec C syntax and 
library routines conform as closely as possible to the let- 
ter and spirit of UNIX Version 7, System III and System 
V. Software created for one environment can be adapted 
to a host of others. 


... Cross Compilation Saves Time and 
Resources : 

A comprehensive set of Cross compilers are available 
from Manx. Cross compilers allow development for a 
number of machines to be performed on a single faster 
host machine. Code is then downloaded and tested on 
the target machine. In some cases testing can also be 
done on the host machine. Using a PC or AT to produce 
and test ROM code is less expensive and more effective 
than specialized micro development systems. 

To target development for PC-DOS, MS-DOS, 
CP/M-86, or ROM based 8088/8086/80186/80286 sys- 
tems, Cross compilers are available from VAX/UNIX 
($2000), PDP-11/UNIX ($1000), and the Apple Macintosh 
($750). 

A wide variety of PC-DOS, MS-DOS, and CP/M-86, 
based cross compiliers are available. The host system 
must be licensed for Aztec C86-c. The following targets 
are available for $300 each: 


Macintosh Apple II 
TRS-80 IIV/IV 6502/6510/6511 


CP/M-80 
8080/Z80 


Call Manx for information on cross development to the 
68000, 65816, Amiga, C64, C128, CP/M-68K, VRTX, 
and others. 

For more information on XENIX, TOPVIEW and 
other specialized development, call Manx. 


30 Day Guarantee 

Any Manx Aztec C86-c or Manx Aztec C86-d development sys- 
tem can be returned within 30 days for a refund if it fails to meet 
your needs. Restrictions are that the original purchase must be 
directly from Manx, and shipped within the USA. Returned 
items must be received by Manx within 30 days. A small restock- 
ing fee may be required. 


Discounts 


There are special discounts available to professors, students, 
and consultants. A discount is also available on a “trade in” basis 
for users of Lattice C, CI-C86, Mark Williams C, Wizard C, Digi- 
tal Research C, and Microsoft C. Call Manx for details. 


Software 
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Aztec C Software Development Systems 

To accommodate the widest possible audience of C 
users,Manx Aztec C is available in four configurations. 
Manx Aztec C86-c, Manx Aztec C86-d, Manx Aztec 
C86-p, and Manx Aztec C86-a. 


Aztec C86-c (Commercial System) $499 

This is the best C software development system avail- 
able for PC-DOS, MS-DOS, and CP/M-86. It is heavily 
bundled with time saving development tools and special 
features (see list). Initial purchase entitles the licensed 
user to one year of computer tracked updates. After one 
year, the update service can be renewed on an annual 
basis for a modest fee. 


Aztec C86-d (Developer’s System) $299 

This system includes all of the major elements of the 
Manx Aztec C86 Software Development System. Includ- 
ing Optimized C compiler, Macro Assembler, Linker, 
Librarian, Source Editor, and Symbolic Debugger. For 
price, performance, and professional features it is far su- 
perior to competing systems with list prices that are 
much higher. Aztec C86-d can be upgraded to Manx 
Aztec C86-c by paying the difference in list price plus 
$10. 


Aztec C86-p (Personal System) $199 


This system comes with a non-commercial license and 
can be upgraded. 


Aztec C86-a (Apprentice System) $99 
This system is designed to assist in learning the C 
language. 


How Become an Aztec C User 


To become an Aztec C user call 1-800-221-0440 or call 
1-800-832-9273 (800-TEC WARE). In NJ or outside the 
USA call 201-530-7997. Orders can also be telexed to 
4995812. 

Payment can be by check, COD, American Express, 
VISA, Master Card, or Net 30 to qualified customers. 

Orders can also be mailed to Manx Software Systems, 
Box 55, Shrewsbury, NJ 07701. 

There is no charge for standard domestic delivery. One day and 
two day express delivery is available to most areas for a minimal 
fee. Outside the USA standard delivery is $20 additional and ex- 
press delivery is sent freight collect. Manx takes care of export 
documents and the like. COD on export is available to some 
areas. 


How To Get More Information 


To get more information on Manx Aztec C and related 
products call 1-800-221-0440 or write to Manx Software 
Systems, Box 55, Shrewsbury, NJ 07701. 


Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and exclusive 
distributor of Aztec C. Any telephone or mail order sales other 
than through Manx are unauthorized. Manx Aztec C is sold at 
some retail outlets under license to Manx. 
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Reader Service No. 149. 
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Selfware 

3545 Chain Bridge Rd., Ste 3 
Fairfax, VA 22030 

(703) 352-2977 


Reader Service No. 151. 


Micro-Software Developers, Inc. 
214% West Main St. 

St. Charles, IL 60174 

(312) 377-5151 

Reader Service No. 153. 


Catalytix Corp. 
55 Wheeler St. 
Cambridge, MA 02138 
(617) 497-2160 


Reader Service No. 155. 


Lattice C User’s Group 
P.O. Box 3072 

Glen Ellyn, IL 60138 
(312) 858-7950 


Reader Service No. 157. 


Whitesmiths 

97 Lowell Rd. 
Concord, MA 01742 
(617) 369-8499 
Reader Service No. 159. 


The Software Toolworks 
15233 Ventura Blvd., Ste 1118 
Sherman Oaks, CA 91403 
(818) 986-4885 


Reader Service No. 161. 


Smith & Smith Associates 
P.O. Box 160 

Hunt Valley, MD 21030 
(301) 666-8129 

Reader Service No. 163. 


Vance Info Systems 

2818 Clay St. 

San Francisco, CA 94115 
(415) 922-6539 


Reader Service No. 165. 


Kriya 

505 N. Lake Shore Dr. Suite 5510 
Chicago, IL 60611 

(312) 822-0624 


Reader Service No. 167. 


Dennis Brothers’ MacTEP 
Berkeley Mac Users Group 
1442A Walnut St., Ste. 153 
Berkeley, CA 94709 

Reader Service No. 169. 


Red Ryder 

The FreeSoft Co. 
10828 Lacklink 

St. Louis, MO 63114 
(314) 428-8057 


Reader Service No. 171. 


The IM Underground 
715 Church St. #16 
Ann Arbor, MI 48104 


Reader Service No. 173. 


MacTutor 

P.O. Box 846 
Placentia, CA 92670 
(714) 993-9939 


Reader Service No. 175. 


The Mac Street Journal 
P.O. Box 6686 

Yorkville Station 

New York, NY 10128 


Reader Service No. 177. 


MacBriefs 

P.O. Box 2178 

Huntington Beach, CA 92647 
(714) 842-0518 

Reader Service No. 179. 


MicroSparce 

45 Winthrop St. 
Concord, MA 01742 
(617) 371-1660 


Reader Service No. 181. 


InCider 

CW Communications/Peterborough 
Peterborough, NH 03458 

Reader Service No. 183. 


Pandora Software 
P.O. Box 55 
Clearfield, UT 84015 
Reader Service No. 185. 


TEER 

345 East 47th St. 
New York, NY 10017 
Reader Service No. 187. 


Aymara Fab Lab 
1974 Gardner St. 
Sunnyvale, CA 94086 
Reader Service No. 189. 
DD] 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 198. 
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PERFORMANCE ACCELERATORS 
FOR CP/M-80 & MP/M-80 


WSOPTION for WORDSTAR 3.0 & 3.3 (installs itself 
right into WordStar) 


FAST 
Speeds up action of WordStar functions so you spend 
less time waiting for WordStar to take action on your 
commands. 


PRODUCTIVE 
A superior print-while-edit capability is included. You 
can now use one terminal or micro to edit one file while 
printing another without reducing your typing speed! 


CONVENIENT 
At print time you can select 1 of 4 printers under CP/M 
or 1 of 8 printers under MP/M. Under MP/M you do a 
proper attach and detach of the printer so it is always 
free when you are not using it. You are informed if the 
printer is in use at print time so you do not hang up. 
Many additional features installed via menu. 


MPMPLUS for MP/M-80 
A group of programs and modules designed to im- 
prove your console and disk response under MP/M-80. 
A performance increase of 2 to 3 times is usual for 
disk I/0. 
Send $35.00 for each item plus $2.00 postage. 


INCLUDE DISK FORMAT REQUIRED 
Continuum Microsystems Ltd. Use your Visa 
21 McCarty Crescent or M.C. 
Markham, Ontario 
Canada L3P 4R4 (416) 294-8536 
WordStar reg. MicroPro, CP/M MP/M reg. D.R.I. 
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CONVERT THE RGSS OUTPUT .OF YOUR 
COLOR BOARD FOR THE IBm PC OR AN ibm 
rc COMPATIBLE TO COMPOSITE BYW WITH 


am LEVEtS OF GRAY 


RUN ALL APPLICATIONS REQUIRING A 
ee 
COLOR MONITOR ON YOUR COMPOSITE BtLack& 


AND WHITE MONOCHROME DISPLAY 


WE Ts THe ABIL TV TO EtLIimMiIinaTe or 
OE ooo 
HIGHLIGHT ANY COLOR GROUPF, He: Con OF 
ae 
BUSTER OUTPERFORMS ANY OTHER COLOR vee 


BYW CONVERTER AVAILABLE - 


BUY YOURS TODAY AT THIS SrFrecratL 
INTRODUCTORY PRICE FOR A LIMITED TIME 


ONLY 


ONLY SOoo.g9g7D5 


CCmizr- residents @0Cdg SG-SZ CtCeax> 


sts ENTERPRISES 
54697 ARLENE WAY 
LIVERMORE, cA 74s55am 


c4a1i1355>? 43535—-S3s5ea 
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ICs PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 


OUTSIDE OKLAHOMA: NO SALES TAX 


8087-3 MATH $110.00 
8087-2 COPROCESSORS 162.00 
DYNAMIC RAM 
256K 256Kxi1 120ns $ 5.65 
256K 256Kx1 150ns 4.45 
64K 64Kx1 150ns 1.10 
EPROM 
27C256 32kx8 250ns $19.99 
27256 32kx8 250ns_ 10.99 
27128 16Kx8 250ns 4.48 
27C64 ~—s 8Kx8. 200 ns 7.85 
2764 8Kx8 250ns 2.95 
2732A 4Kx8 250ns 3.95 
STATIC RAM 
6264LP-158kxs 150ns $6.57 
6116LP-3 2kxs 150ns 2.24 


2 DAYS: WE CAN SHIP VIA FED-EX ON SAT. 
MasterCard/VISA or UPS CASH COD 
voexrma] Factory New, Prime Parts .uPoo 
COstON | MICROPROCESSORS UNLIMITED 
DELIVERY | 24,000 S. Peoria Ave., (91 8) 267-4961 


BEGGS, OK. 74421 
Prices shown above are for May 20, 1985 


QUANTITY ONE PRICES SHOWN 


ADD 640 Kbyte TO PC/XT 8-SLOT MOTHERBOARD 
CONSUME NO EXPANSION SLOTS: $100.10 


z pnces shown. Orders recerved by 6 PM usually 
morning, via Federal Exprees Standard Air @ $6.00, or Priority One @ $1150! 
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Tools 


ava Software 
Quelo” 58000 Development 
le 


68000/68010 Assembler Package 
Assembler, linker, object librarian and extensive indexed 
typeset manuals. 


Conforms to Motorola structured assembler, publication 
M68KMASMI{[4]. Macros, cross reference and superb load 
map, 31 character symbols. 


Optimized for CP/M-80, -86, -68K, MS-DOS, PC-DOS . . $595 
Portable Source written in ‘“‘C” 


Complete 68000 Development Package 


for MS-DOS 


Lattice 68000 “‘C’’ Compiler and 
Quelo 68000 Assembler Package 


68200 Assembler Package 
Assembler and linker for Mostek MK68200. 


Optimized for CP/M-80, MS-DOS, PC-DOS 


Quelo Inc. 

2464 33rd W. Suite #173 
Seattle, WA 98199 
Phone (206) 285-2528 
COD, Visa, MasterCard telex || (TWX) 9103338171 


CP/M, TM DRI. MS-DOS TM Microsoft. PC-DOS TM IBM. 


For more information contact 


Patrick Adams 
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Neh 


CROSS SOFTWARE 
for the NS32000 


Also Available for IBM PC 
INCLUDES: 


x Cross Assembler * 
* Cross Linker * 
* Debugger * 
* N.S. ISE Support * 
* Librarian * 
* Pascal Cross Compiler * 
* C Cross Compiler * 


U.S. prices start at S500 


SOLUTIONWARE 


1283 Mt. View-Alviso Rd. 
Suite B 
Sunnyvale, Calif. 94089 
408/745-7818 * TLX 4994264 


Circle no. 118 on reader service card. 


FORTRAN 
PROGRAMMERS 


Discover why 
you should be using 
F77L 
the complete implementation 
of the ANSI FORTRAN 77 
Standard for the IBM PC and 
compatibles. 

If you are serious about your 
FORTRAN programming, you 
should be using F77L. 
$477 


Lahey Computer 
Systems, Inc. 

31244 Palos Verdes Drive West, Suite 243 
Rancho Palos Verdes, California 90274 
(213) 541-1200 
Serving the FORTRAN community 
since 1969 
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Now With Windowing! 
$49.95 Basic Compiler 


MTBASIC 


Features: 
Multitasking |Windowing 
Handles interrupts _Interactive 
Fast native code Compiles quickly 
Floating point No runtime fee 


MTBASIC is a true native code compiler. It runs Bytes’s Sept. 
‘81 seive in 26 seconds; interpreters take over 1400 seconds! 
Because MTBASIC is multitasking, it can run up to 10 Basic 
routines at the same time, while displaying ten separate win- 
dows. Pop-up/down menus are a snap to implement. 


MTBASIC combines the best of interpreters and compilers. To 
the programmer, MTBASIC appears to be an extremely fast 
interpreter. MTBASIC compiles a typical 100 line Basic pro- 
gram in 1 second, yet it generates blindingly fast code. No 
more waiting for long compiles. 


AVAILABLE for CP/M (Z-80) and PC-DOS systems. 


ORDERING: Specify format when ordering. We accept Visa, 
MC, checks and COD. Send $49.95 plus $3.50 shipping and 
handling ($10 overseas) to: 


nie, ae 


P.O. Box 2412 Columbia,MD 21045-1412] — 


Oe SOS 


Group 


Over 45 volumes of 
public domain software 
including: 

compilers 
editors 
text formatters 
communications 
packages 
e many UNIX-like tools 


Write or call for more details 


The C Users’ Group 


415 E. Euclid © Box 97A 
McPherson, KS 67460 
(316) 241-1065 
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uN Advanced 


Traces6™ 


Symbolic Debugger & Assembler Combo 


Full-screen trace with single stepping; 
Even backstepping! 


Write & Edit COM & EXE programs 
Conditional breakpoints (programmable) 


Switch between trace and output screen; 
Or set up two monitors 


8087, 80186, 80286, 80287 support 
Write labels & comments on code 
Polish hex/decimal calculator 
and more... Priced at $175.00 


To order or request more information contact: 


M Morgan Computing Co., Inc. 


i 2520 Tarpley Rd. Suite 500 
(214) 245-4763 Carrollton, TX 75006 













































68000 
CO-PROCESSING 
For 

IBM PC, PC/XT 
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256K, OS, and MS/PC DOS RAM disk 
driver. HSC also manufactures and mar- 
kets a full line of co-processors and 

RAM disks for use on Z80 based systems. 


DISTRIBUTORS: 
Austraiia-Computer Transition Systems 


Advertising Sales Offices 


Great Britain-System Science eer re East Coast Classified Advertising 
. . .01-248-;062 Walter Andrzejewski (617) 567-8361 Tim Ortiz (415) 424-0600 0 
West Germany-DSC International oe : 
.. 089-723-1125 Midwest / West Central Advertising Director 


Canada Remote Systems 


Michele Beaty (317) 875-0557 


Northern California / Northwest 
Lisa Boudreau (415) 424-0600 


Stephen Friedman (415) 424-0600 
.. .416-239-2835 


Advertising Coordinators 
Jay Horvath (415) 424-0600 
Alice Abrams (415) 424-0600 






Dealer, Distributor and OEM inquiries 
invited. 


Southern California /Southwest 
Beth Dudas (714) 643-9439 


a 
Hallock Systems Co., Inc. ee e 






267 North Main Street 
Herkimer, NY 13350 
(315) 866-7125 
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: Turho- 


the console. Rapid transit at its best. Turbo ASYNCH is designed — 
to let you incorporate asynchronous communication capabilities 







YNCH™ With Turbo ASYNCH, you can be in constant it 
touch with the world without ever ae ae 





Se _. into.your Turbo Pascal application programs, and it will drive any 8 2 


hoe : ; _ asynchronous device via the RS232 ports, like printers, plotters, a ill the ¢ 
_ modems or even other computers. Turbo ASYNCH is fast, accurate - a nC 
oe and. lives up fo its specs. Features include. . oe e 





ae ¢« Initialization of the COM ports allo wing you to set all transmis. ay _ Pascal functions. @ Screen support and window meteiiemneht. give 
. sion options. @ Interrupt processing. @ Data transfer between Gi 
ular queues and communications ports. @ Simultaneous buffered : ae 
-.,,  Japutand. output. to both COM ports. @ Transmission speeds oe a IBM AT. o Full program control by allowing you to execute any — 
So. to 9600 Baud. @ Input and Guipel ¢ queues as Oe as you wish - other, program | from within your Turbo Pascal application. @ Inter. 
7 ° XON/XOFF protocol. ee Se _ tupt service routines written entirely in Turbo Pascal. Assembly 


on assembler for efficiency, and drive the UART and programmable = ~-Using Turbo POWER TOOLS, you can vow “titer” the keyboard _ 
_ interrupt controller chips directly. These functions, installed asa gr even DOS, and create your own: fo. 


. "9 ( _ runtime resident system, require just 3.2K bytes. Tie ANOTTADE to. > ee applications. S 
eo the assembler routines is written in Turbo Pascal. Oe 


The Turbo Pascal PERFORMANCE PACKAGE” is for the serious. 
oo Turbo Pascal programmer who wants quality tools to develop anol: a 
“-* vations. E very system comes. with a comprehensive User Reference leg, 























a c* Dense string handling to 


gate 





__ ing you fast direct access to the screen without using BIOS calls. 
_ @ Access to BIOS and DOS services, including DOS 3.0 and the 


* |) codeis not required even Y service e hardware interrupts like the 
The underlying fibcion é hich ASYNCH : are roti abified keyboard of clock. : 





ee Manual, all source code and useful sample programs. They require z 5 - : : ee — 


if ; _ an IBM PC or compatible, utilizing MS-DOS version 2.0 orfater,- 
.. +. There are no royalties for incorporating PERFORMANCE PACKAGE pe 
. 2 functions into your applications. — 2 oe 


eS a : and they may be ordered set from eae 


- (415) 540-544 : 
















Turbo POWER TOOLS and fiirbo ASYNCH sl for 7 $99. 9 each, 


Computing Inc. To. order, call 







z “e 2034 BLAKE STREET a 
oe BERKELEY, CA 94704 oe 
« ee eee 3 






They said it couldn’t be done. 
Borland Didit. Turbo Pascal 3.0 


The industry standard TURBO TURBO MS The best just got better: en 
With more than 250,000 users worldwide Turbo 3.0 2.0 PASCAL Introducing Turbo Pascal 3.0 ae 


Pascal is the industry’s de facto standard. Turbo We just added a whole range of exciting new 
Pascal is praised by more engineers, hobbyists, 206 features to Turbo Pascal: a 
students and professional programmers than any Vii . 
other development environment in the history e First, the world’s fastest Pascal compiler just got eg 
faster. Turbo Pascal 3.0 (16 bit version) compiles ok 


of 
microcomputing. And yet, Turbo Pascal is 
simple and fun to use! arya twice as fast as Turbo Pascal 2.0! No kidding. 
ale e Then, we totally rewrote the file 1/0 system, and 
(zn we also now support |/0 redirection. 
a e For the IBM PC versions, we've even added 
COMPILATION SPEED “turtle graphics” and full tree directory support. 


e For all 16 Bit versions, we now offer two addi- 
EXECUTION SPEED tional options: 8087 math coprocessor support 
- for intensive calculations and Binary Coded 
Decimals (BCD) for business applications. 
e And much much more. 


The Critics’ Choice. 
Jeff Duntemann, PC Magazine: “Language 





Me ee Cee deal of the century . . . Turbo Pascal: It 
introduces a new programining environment and 
COMPILER SIZE runs like magic.” 
Dave Garland, Popular Computing: “Most 
TURTLE GRAPHICS Pascal compilers barely fit on a disk, but Turbo 
Pascal packs an editor, compiler, linker, and run- - 
BCD OPTION time library into just 39K bytes of random- és 
access memory.” 


Jerry Pournelle, BYTE: “What | think the 
computer industry is headed for: well 
documented, standard, plenty of good features, 


PRICE 


CODE SIZE Zz 
BUILT-IN INTERACTIVE EDITOR pay 






















: Ni and a reasonable price.” ' 
Portability. (*) Benchmark run on an IBM PC using MS Pascal version 3.2 and . 
a. the DOS linker version 2.6. The 179 line program used is the “Gauss- : 
Turbo Pascal is available today for most com- Seidel” program out of Alan R. Miller's book: Pascal programs for a 
puters running PC DOS, MS DOS, CP/M 80 or scientists and engineers (Sybex, page 128) with a 3 dimensional 
CP/M 86. A XENIX version of Turbo Pascal will non-singular matrix and a relaxation coefficient of 1.0. 
i. soon be announced, and before the end of the 
éf year, Turbo Pascal will be running on most 68000 


based microcomputers. 


An Offer You Can't Refuse. 


Until June 1st, 1985, you can get Turbo Pascal 3.0 

for only $69.95. Turbo Pascal 3.0, equipped with 

either the BCD or 8087 options, is available for an 
additional $39.95 or Turbo Pascal 3.0 with both options 
for only $124.95. As a matter of fact, if you own a 16- 
Bit computer and are serious about programming, you 
might as well get both options right away and save 
almost $25. 
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